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1.0 GENERAL INFORMATION 
^ 1.1 PROGRAM ABSTRACT 

1,1.1 STRUCTURE OF PROGRAM 

THIS DIAGNOSTIC OCCUPIES 14. 5K WORDS OF MEMORY AND IS COMPATIBLE WITH 
BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE 
CHAINED UMDER XXDP, ACT AND APT IN ACT MODE (SEE "CREATE CORE IMAGE" 
COMMAND BELOW FOR DETAILS OF CHAINING PROCEDURE). IT IS A SINGLE 
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER, PUT WE HAVE 

_ INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LATER PF RELEASED 

f INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 

{ WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST TO 
% THE SUPERVISOR PORTION/ WHICH WILL ASK CERTAIN "HARD COPE" QUESTIONS 

W ABOUT THE ENVIRONMENT. THEN IT MILL ENTER COMMAND MODE, INDICATED BY 

A PROMPT CHARACTER (PS B>). AT COMMAND MODE THE OPERATOR MAY ENTER 

ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL 
f i DISTRIBUTION. A LIMITED DISTRIBUTION HAS BEEN VADF TO FIELD SERVICE 



OF THE SUPERVISOR ASSEMBLY LISTING, AND IT MAY RE CONSULTED In'eVENT 
OF A SOFTWARE PROBLEM. 

1.1.2 DIAGNOSTIC INFORMATION 

THIS PROGRAM TESTS AND EXERCISES RL01 DIS* DRIVES RL11/RLV11 
CONTROLLERS (4 DRIVES PER CONTROLLER). THE ENTIRE PROGRAM IS RUN ON 
THE FIRST DRIVE BEFORE STARTING ON THE SECOND. THE PROGRAM STARTS BY 
TESTING THE SIMPLEST FUNCTIONS FIRST USING THE LOGIC TESTED IN EARLIER 
TESTS TO TEST MORE COMPLEX FUNCTIONS. 

THIS PROGRAM TESTS THE RLC1 INTERFACE AND BASTC DRIVE LOGIC. GET 

STATUS WITH RESET, GET STATUS, SEEK, AND READ HEADER ARE THE ONLY 

COMMANDS EXECUTED IN THE PROGRAM. ONLY SEEKS WITH C DIFFERENCE ARE 
USED SO NO HEAD MOVEMENT IS REQUIRED. 

A SIGNIFICANT PORTION OF THE PROGRAM REQUIRES MANUAL INTERVENTION. 
THESE TESTS TEST THE COVER OPEN AND WRITE LOCK STATUS. THE DRIVE MUST 
BE LOADED AND UNLOADED TO TEST ftLL THE CONDITIONS OF HEADS OUT, BRUSH 
HOME, AND DRIVE STATES. THE PROGRAM CAN BE RUN IN AUTOMATIC MODE IN 
WHICH CASE ALL TESTS REQUIRING MANUAL INTERVENTION ARE BVPASSFD. 

1.2 SYSTEM REQUIREMENTS 

1.2.1 HARDWARE REQUIREMENTS 

PDP~U/LSI-li PROCESSOR WITH 16F OR MORE OF MEMORY 
CONSOLE DEVICE (LA 30#LA36,VT50/ETC. ) 
RL11/RLV11 CONTROLLERS) 
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1-8 RLOl DRIVES • •) 

1-8 RLC1K CARTRIDGES WITH RAD SECTOR FILE 
KWllP, KWHL (OPTIONAL) 
LINEPRINTER(OPTIONAL) 

1.2.2 SOFTWARE REQUIREMENTS 

CZRLCRO RLOl DRIVE TEST PART 1 
(FORMERLY MD-11-DZRLC-A) 

f 

1.3 RELATED DOCUMENTS AND STANDARDS f 

RLOl USERS MANUAL (EK-RL01-UG-PRE) * 

XX DP USERS MANUAL 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

THE RLOl SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 
PROGRAMS: 



m m 



CVRLAAQ RLV11 RLOl DISKLESS TEST (RLV11) 

CZRLA80 RL11/RLV11 CONTROLLER TEST PART 1 

CZRLBBO RLll/RLVll CONTROLLER TEST PART 2 

1.5 ASSUMPTIONS 

THE HARDWARE OTHER THAN THE RLOl SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS *<AY 8E REPORTED IF THE PROCESSOR, ETC., DO NOT 
FUNCTION PROPERLY. 

2.3 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 

2.1.1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP 
PROCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS/ BECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. 

WHEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCUR: 

********** 



* STEP 1 * 

********** 



A SHORT SERIES OF "HARDCORE QUESTIONS" WILL BE ASKED: 
QUESTION MEANING 
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L-CLK (L) N ? IS THERE AN L-CLQCK? 

P-CLK (L) N ? " " " P-CLOCK? 

50HZ (L) H ? IS THE POWER 5« CYCLES (AS IN EUROPE)? 

LSI (L) N ? IS MACHINE AN LSI? 

LPT (L) N ? IS THERE A LINE PRINTER? 

MEM (K) (D) 16 ? HOW MANY K OF MEMORY ARE THERE? 

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE 
£ S 2r E Rio, POIJ^EXAMPJLE,.^ IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE 
P-CLOCK QUESTION WILL NOT BE ASKED. 

if.«5! F 'I T .H E 8.? 9 R » L C *' 0CK A R S ANSWERED YES THE OPERATOR WTLL BE ASKED TO 
TYPE TWO CHARACTERS 4 SECONDS APART. 

********** 

* STEP 2 * 
********** 

$8l!i~ Y0 !L9 AV O N § WER £S„ A fc L „ THE HARDCORE QUESTIONS, THE DIAGNOSTIC WILL 
ISSUE THE PROMPT "DS-8>". FROM THIS POINT UNTIL THE TI"E WHEN YOU 
RESTART XXDP, YOU WILL RE TALKING TO THE DIAGNOSTIC, NOT XXDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE. 

AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME 

&§=. X55„ SXS p nn§X&S T £P, M ^ A * , P.*«. w m c .^ y, ou already issued i» pesponse to 

THE XXDP DOT PROMPT. THIS "START" COMMAND CAN TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAV IS SOMETHING LIKE IhTS: 

STA/PASS:l/FLAGS:HOE 

THINGS TO NOTE HERE? 

1. ONLY THE FIRST THREE CHARACTERS OF THIS OP ANY COMMAND AT THE 
"DS-B>" LEVEL NEED TO BE TYPED. 

2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE, A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 

3. THE "FLAGS" SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT 
THE MAIN USEFUL ONES ARE: 

LOP LOOP ONE ERROR 

HOE HALT ON ERROR 

IER INHIBIT ERROR PRINTOUT 

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTL Y) « 



Page 6 

********** 

* STEP 3 * 
********** 

# H £ N YOU HAVE TYPED IN A "START" COMMAND, THE DIAGNOSTIC WILL COME 
2£E5„,. W JT, H » l HE Q«ESTION »# UNITS?" TO WHICH YOU SHOULD RESPOND BY 
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST, 

A WORD 0£ WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED 
AT A DISK DRIVE, THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
RSIX E 2n J9 n . r B L TESTED, WHEREAS IF THE DIAGNOSTIC WAS DIRECTED AT THE 
SS§5r,SP^SS2 LLER * THE S X HE NU *BSR OF UNITS WOULD BE THE NUMBER OF 
CONTROLLERS. THE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE 
DETERMINED BY INSPECTING THE "HEADER" STATEMENT NEAR THE BEGINNING OF 

IB£,„S E§ C !c,. C R5S*„n £ NE r 0F THE OPERANDS OF THIS "HEADER" STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC. 
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********** 

* STEP 4 * 
********** 

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE 
DIAGNOSTIC WTLL ASK YOU THE "HARDWARE QUESTIONS". "THE ANSWERS TO 
THESE QUESTIONS ARE USE* TO BUILD TABLES IN CORF, CALLED "HARDWARE 
P-TABLES". ONE HARDWARE P-TABLE WILL BE PtJILT FOR EACH UNIT TO BE 
TESTED. 

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE 
POSED N TIMES/ WHERE M IS THE NUMBER OF UNITS. 

THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING. 
DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME 
STANDARD ADDRESSES: INSTEAD, THEY WILL ASK THE OPERATOR FOP ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE. 

********** 

* STEP 5 * 
********* * 

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) PTIR ALL 
THE UNITS, YOU WILL BE ASKED "CHANGE SW? H IF YOU WANT TO BE ASKED THE 
SOFTWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM* TYPE 
"Y". IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE 
"N". IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC 
.6), AND THE ANSWERS WILL BE PUT INTO THE SOFTWARE P-TABLE IN T«E 
ROGRAM. THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE, REGARDLESS 
OF THE NUM8ER OF UNITS TO BE TESTED. 



I 



********** 

* STEP 6 * 
********** 

AFTER YOU RAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS 
THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE STAPT 
COMMAND. CONSIDER THE POSSIBILITIES? 

1. IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE nESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-B>). 



111! 
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2 * IE,J2L!8 RCR IS ENCOUNTERED, THEN ONE OF THREE THTNCS HAPPENS, 
DEPENDING ON THE SETTINGS OF THE HOE AN D LOE FLAGS. ' 

HOE SET: THE ERROR WILL RE REPORTED ON THE CONSOLE AND 
mn TO . I H £ HIAGNOSTIC WILL RETURN TO COMMAND MODE. 
LOF, SET: THE DIAGNOSTIC WILL LOOP ENLSSSLV ON THE BLOCK 

OF CODE THAT DETECTED THE ERROR. 
NEITHER HOE NOR LOE SET: THE ERROR WILL BE REPORTED ON 

THE CONSOLE AND NORMAL EXECUTION WILL PESUME 

AS IE NO ERROR HAD OCCURED. 



2.1.2 SAMPLE RUN-THROUGH 

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION. RECALL T«AT WF • 
ENTERED THE COMMAND "ST A/PASS: l/FLAGS: HOE". THTS WOULD RE A VFPY 
IEIH L ^XnJ8»3«» "L^AGNpSTIC. IF NO ERRORS ARE ENCOUNTERED, THE 
iIr^L-rs REQ " EST£D P4SS WTLL RE EXECUTED AND T»E PROMPT wfLL BE 

IF AN ERROR IS ENCOUNTERED, THE ERROR WILL RE REPORTED AND THE PROMPT " r> \ 
WILL RE REISSUED (BECAUSE THE HOE FLAG IS SET). AT THTS POINT thfpp ^ # 
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGATNS: 

1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS 
2r Of 4, 5, ANP 6 AGAIN) 

2. ISSUE A "RESTART" COMMAND (SAME AS START COMMAND FXCEPT THAT 
THE HARDWARE QUESTIONS ARE NOT ASKED) 

3. ISSUE A "CONTINUE" COMMAND (EXECUTION WILL RESUME AT THE 
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS 
CONSIST OP A NUMBER OF THESE) THAT IT WAS IN WHEN THE FPPOP 

HALT OCCURED. NO QUESTIONS ASKED. LK . ) 

4. ISSUE A "PROCEED" COMMAND: EXECUTION WILL RESUME AT THE 
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPFCIAl 
COMMAND AND CAM RE ISSUED ONLY AT A HALT ON ERROP). ^ tL1AL 

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WIT* 
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY 

PRO/FLAGS: IER:LOE:HOE=C 



* 
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THIS WILL DO THE FOLLOWING: 

1. TORN ON THE IER (INHIBIT ERROR PRINTOUT) FLAG 

2. TURN ON THE LOE FLAG 

3. TURN OFF THE HOE FLAG 

4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK. OF CODE THAT DETECTED AND 
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN 
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS WILL TAKE YOU 
OUT OF THE LOOP AMD PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE 
THREE CHOICES: 

1. START 

2. RESTART 

3. CONTINUE 

LET'S SAY YOU'VE REPAIRED THE DEFECT POUND ABOVE AMD WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU WQHLD TYPE 

CON/FLAG S: HOE : IER=D:LOE=0 

THIS VILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME 
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU HERE IN. IF THE 
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE 
NEXT ERROR OP TO END OF PASS. 

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE T»JO 
CHOICES: 

1. START 

2. RESTART 

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIN. 
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THE FULL PRINT-OUT FROM THE AflOVE DIALOGUE MIGHT LOOK LIKE THIS: 

BY 
WHOM 

ENTERED: 

.R DZRKXX 

DZRKXX K 

L-CLK (L) N ? V D,0 

50HZ (L) N ? n 

LSI (L) N ? p 

LPT (L) N ? n 

MEM (K) (P) 16 "> p 

ds-b>sta/pass:i/flags:hoe d,p 

# UNITS (D) ? 2 \)'q 

UNIT 1 h 

CSR (0) ? k Q 

vector (0) ? k'n 

3R LF.VEt. (0) ? p'ri 

DRIVE (0) ? r n'H 

UNIT 2 p' 

CSR (0) ? 5 #n 

VECTOR (0) ? p'n 

BR LEVEL (0) ? p'fj 

DRIVE (Q) ? 1 p^O 

CHANGE SW (L) ? N q'q 

DZRKXX HARD ERR 00004 TST 003 SUB 002 PC:004130 D 

ERR HLT n 

ds-b>ppo/flags:ier:los:«oe=0 d,o 
****************************** ******************* 
at this point the diagnostic is looping ON THE 

ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE 
THE ERROR UNTIL YOU HAVE LOCATED IT, THEN *C OUT 

*********************************** i ********** * i* 

*c o 

DS-B>CON/FLAGSJHOEMERJLOE=0 D, 

CHANGE SW (L) ? N D^O 

DZRKXX EOP 1 

DS-B>RESTART/PASS:l D, 

CHANGE SW (L) ? U p^g 
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2.2 HOW TO CREATE A CHUNABLE FILE 



THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE RUN IN 
CHAIN MODE. THA IS WHY IT REARS THE EXTENSION "BIN" INSTEAD OF "BIC". 
THERE IS A WAY, HOWEVER, TO CREATE A CHAINA8LE PROGRAM FPOM KHAT 
YOU'VE GOT. 

IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND "CCI" 
ISSUED ftHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS-B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE 
QUESTIONS AND ANSWERS AND THEN TO HALT, J"ST WHERE IT WOULD ORDINARILV 
BEGIN EXECUTION OF THE HARDWARE TEST CODE. AT THIS POINT YOU CAN DUMP 
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE NEW 
EXTENSION "BIC". 

HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS: 

.R UPD2 

RESTART? XXXXXX 

*CLR 

*LOAD DIAC.BIN 

XFER:200 COREiO,606G2 

♦START 200 

L-CLK (L) N ? 



DS-B>CCI 

# UNITS (D) ? 4 

CHANGE S« (L) ? N 
PTA8 END: 60632 

************************************* 

*AT THIS POINT THE MACHINE HALTS AND* 

*YOU MUST RESTART AT ADDRESS XXXXXX* 
************************************* 

*HICORE 60632 
CORE: 0,60632 
*0OMP DKOI OIAG.BIC 

THE RESULT OF DOING THIS IS THAT YOU CAN NOW PUTLD AN XXDP CHAIN FILE 
CONTAINING THE XXDP COMMAND 

• R DIAG.RIC 

AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND. 
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2.3 DETAILS OF COMMANDS AND SYNTAX 

2.3.1 TABLE OF COMMAND VALIDITY 

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTI 
SUBSETS OP THE DIAG COMMAND SET ARE AVAIL 

HOW ENTERED 
1. OPERATOR ENTERED 'RON DIAG* 



DIAGNOSTIC HAS FINISHED ALL 
ITS REQUESTED PASSED 



: ■) 



OPERATOR INTERRUPTED THE 
DIAGNOSTIC WITH CTRL/C 



4. AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 



C COMMAND MODE, AND DIFFERENT 
ABLE WITH EACH- 
LEGAL COMMANDS 

START 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 
RESTART 

CONTINUE 

PROCEED 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



mm 



2.3.2 COMMAND SYNTAX 

*********************** ******************************************* 

*l**SI****H^n^I;UfK!!!!iSH§lS NT/FLAGS:FLftG - L IST/EOP:EOP-INCR 
************************************ ****************************** 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCF WITH THE SWITCHES 
SPECIFIED. THE MESSAGE «# UNITS?" IS PRINTED. THE START COMMAND MAY 
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VTA oik OF THE 
FOLLOWING! A) OPERATOR TYPED "RUN DIAGNOSTIC" P) DIAGNOSTIC FINISHED 
iNTERED N CONTROL/C? " AS ENCQWERE0 WI ™ H0F "fie SET D) OPERATOR 
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ISSUED, AND THE ANSWERS, TF PTVFN ( n*rnup.i.aS £fE I S55 "CHANGE SW?" IS 

THE SWITCH ARGUMENTS ARr AS FOLLOWS: 

DEClJlP^MBlisN?!!??^ RcTtSft J??S?iS ill.2,EKi) JJP RANGES £F 
THE NUMBERS ARE SFPARATFD RV rht n3« thp 1 £XuJSSc T E? TS T0 RE EXECUTED. 

"" Ep5R a fs F: E R N R C°0 R f IN ?l^ S n ING CnMM,M M0DE T0 « WTWEO WHEN ft. 

ies i s S8I!!?'EMnJ F R s B |? I 5 K ? " S8 " ?,, ^ sgs ' t 
Iff IfeW "l&ira %?g„ s 
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rr H p*DPn GS E *{!£9J D B„E QU A TE0 T0 1 ARE SET, THOSE EQUATED TO idc ' \ 

THE DIAGNOSTIC IN COPE CS EXECUTED IN ACCOPDANCF WTTH thit cwttpuitc 

core i [r.I D osed? i ' e?EP/ NEW p -«»«i »rS mSfSSSM? insteadJ%e S o11s HE n t 

?Sn Q RfiT, I ,PiHr." CHA -! GE Sw? " IS ASKED, AMD THE ANSERS IF GTVFN PFCOMF THP 

THE SWITCH APGUMEHTS ARE AS IN THE START COMMAND EXCEPT: * 

U FRnM T "l ,lS ?HPl I J S W A ri EQU i?,Si c .§ F n C . L RglS* L ™ IT AMBERS RANGING 

OPERATOR COMMAND". THE EFFECT OF THF ONIT-l T?T r ASTS HNTn 
THE NE E XT iESTART^^ " " »"TOMATICALLV N RESET S ?0 L »ALL«) NT OR 

2. ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 
********* ********************************** 

*2*"ni!!!yi2^ASS:<PASs-CNT/FLAGS:<FLAG-LiST> 
******** ******************* ********;;j*5; £ ;>££ 

control/c° DE the s Ifffct RI E ^l7l8§5 M R y ?c 18 J, t^L B» e rro?? OR a 

|EST R ?^?' WA I H l E f5? E ilECUTED E WHEN M Mi Jf L ?°OR CONTROL/C^tSo?* pTa?^ 
SBWbe^M. MBV 0PTI0 ^LLY T B H I SEllE8STEg? N lA°^5APr?jRA?^ils 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT! 

U pM™ F s 0R sta^ ss 5^IeI?ar? he UNSATISF "D PASS-CNT from the 

2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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PRO(CEED)/FLAGS:<FLAG-LIST> 
i *************************** 

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERPOR. THE EFFECT 
OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL. NEITHFR HARDWARE NOR SOFTWARE PARAMETERS HAY BE ALTERED. 

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT: 

1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 

41 ************************************************************* 

CCI/TE ST: TEST-LI ST /P ASS :PASS-CNT/FL AGS :flag-list/eop:eop-tncr 
****************************************************** ******* 

« THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE 
HARDWARE TEST CODE. NOW THE OPERATOR CAN DUMP THE COPE IMAGE TO THE 
MEDIUM WITH A BIC EXTENSION. 



I 



HE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 
UN MANUALLY OR IN CHAIN MODE. IF RUN MANUALLY IT CAN BE INVOKED 

EITHER WITH A "START" (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILE? 

THE PPE-OENERATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OP 

WITH A "RESTART" (IN WHICH CASE THE PRE-GENER ATED OPERATOR ANSWERS 

HILL BE USED). 

lEo^NIN CHAIN MODE, AUTOMATIC EXECUTION WILL COMMENCE IMMEDIATELY 
FROM THE XXDP COMMAND *'.R DIAG". THE COMMAND PROMPT "DS-B>" WILL NOT 
BE ISSUED. 

ANY SWITCHES SPECIFIED ON THE CCT COMMAND WILL CARRY OVER WHEN THE PIC 
FILE IS RON IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SFT THERE) RUT 
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY. 

TO^DO^A CCI ON A FULL SIZED DIAGNOSTIC (14. 5K WORDS), A MACHINE SIZE 
LARGER THAN 16* IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS ON WHICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 

********************** 



DRO(P) /UNITS; UNIT-LI ST 
********************** 



THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK 
OR UNTIL A START COMMAND IS GIVEN. A DROP CAWNOT 8E FOLLOWED BY A 
PROCEED. 

THERE IS ALSO A "DROP" MACRO INTERNAL TO THE DIAGNOSTIC/ '4HICH GIVES 
THE FACILITY OF AUTO-DROPPING. THE DURATION OF A PROGRAM DROP, 
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART. 
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***** ************** 



ADD/UNITS :»NIT-UST ' J 

******************* / 

THE UNITS SPECIFIED ARE ADDED BACK {THEY MUST HAVE BEEN PRE VIOUSLY 
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE. AN ADD CANNOT BE 
FOLLOWED BY A PROCEED. 

******* 

PRT(NT) 

******* 

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC APE PRINTED. THE 

ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. # 

*************************** 

DIS(PLAY)/UNITS:<UNIT-LIST> m 

*************************** • 

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT WERE DROPPED BY THE 
OPERATOR "DROP" COMMAND ARE SO DESIGNATED. 

******* f Bsl| 

******* 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 

******** 

ZFL(AGS) 
******** 

ALL FLAGS ARE CLEARED. 

) 

2.4 EXTENDED P-TABLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 

AS SOON AS THE QUESTION »# UNITS?" IS ANSWERED (WITH THE NUMBER N, 
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT* AND THERE IS A ONE-TO-ONE CORRESPONDENCE 
BETWEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-TABLE 
FORMAT. 



m 



;) 
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ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE 
P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAN N EXPLICIT 
VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES ARE PLACED 
IN THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE 
BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS 
EXHAUSTED. THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES. 

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME PROCESS IS CARRIED 
OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE 
PLAVED IN THE FIRST TRIP. 

THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST ONE QUESTION HAS 
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR. 

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE 
USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE. 

A STRING OF VALUES MAY HE GTVEN AS A RANGE (6-10 FOR EXAMPLE). IF THE 
VALUES REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO 
IHEniI§S8 G SfJ' 8 *.^ 1 ^ (AN INCREMENT OF 1). IF THE VALUES ARE 
ADDRESSES, THE SAMPLE RANGE TRANSLATES TO THE STRING 6,8,10 (AN 
INCREMENT OF 2). 

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A SET 
OF P-TARLES. ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE 
HARDWARE PARAMETERS FOR EACH (THREE SLOTS IN THE P-TAPLE, THREE 
HARDWARE QUESTIONS IN THE DIALOGUE). LET THE DESIRED VALUE FOR THE 
FIRST PARAMETER BE THE NUMBER 75 FOP ALL 64 TABLES. LET THE DESIRED 
VALUE FOR" THE SECOND PARAMETER BE EQUAL TO THE UNIT NUMBER 
(1,2,3, ...,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE VALUE 49. 
LET THE DESIRED VALUE FOR THE THIRD PARAMETER RE THE NUMBER 76 FOR THE 
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNITS. 

THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL! 

# UNITS (D) ? 64 

UNIT 1 

<QUESTION 1> ? 75 
<QUESTION 2> ? 1-2* 
<QUESTION 3> ? 76 

UNIT 21 

<QUESTION l> ? 

<QU£STI0N 2> 7 21-49, ,51-64 

<QUESTION 3> ? 77 



IIP 
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THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN ALL 64 

TABLES. SLOT TWO RECEIVES THE VALUES 1/2,3, ...,20 IN TABLES 1 THRU 20 

AND A CONSTANT 20 IN TABLES 21 THRU 64. SLOT THREE RECEIVES A 
CONSTANT 76 IN ALL 64 TABLES. 

THE SECOND TIME THPU THE SERIES, TABLES 21 THRU THE END APE GOING TO 
BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR 
THE OPERATOR IN THE FORM "UNIT XX" AT THE BEGINNING OF EACH SERIES). 
QUESTION 1 IS RESPONDED TO BY A <CR>, SO SLOT ONE STAYS A CONSTANT 75 
IN TABLES 21 THRU 64, SINCE NO NEW EXLICIT VALUES ARE TYPED IN. SLOT 
TWO GETS THE VALUES 21,22,23, .. .,49 IN TABLES 21 THRU 49, AND GETS A 
49 IN SLOT 50, AND GETS THE VALUES 51,52,53, ... ,64 IN TABLES 51 THRU 
64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE REEN GIVEN FOP AT LEAST ON QUESTION (NAMELV 
QUESTION 2). 

2.5 HARDWARE PARAMETERS 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE VALUE 
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT 
HILL BE TAKEN ON A CARRIAGE RETURN RESPQNCE. 

RLll (L) Y? 

ANSWER YES(Y) IF YOU HAVE AN RLll CONTROLLER, N0(N) IF YOU HAVE AN 
RLVll CONTROLLER. 

BUS ADDRESS (0) 174400? 

ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 

VECTOR (0) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 

BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF TWE CONTROLLER. 

DRIVE (0) ft? 

ANSWER WITH THE DRTVE(S) CONNECTED TO THE CONTROLLER. 

2.6 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR 
CONTINUE. THEY ALLOW FLEXARILITY IN THE WAY THE PROGRAM BEHAVES. THE 
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT RUNS. 
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART, OP CONTINUE BY 
ANSWERING (Y)ES TO THE FOLLOWING QUESTION: 
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CHANGE S.W. 



A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS, WITH 

THE PRESENT DEFAULT VALUE PRINTED TO ~" 

(THE LAST ANSWER GIVEN IS THE DEFAULT) 1 _ __ ._ 

CONTROL Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND START THE 



THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION m*rk. 

'THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <CP>. 

JNTR"" ~ "" 

TEST. 

EXECUTE DRIVE SELECT TESTS (N)? 



IF "YES" TESTS 5 AND 6 ARE EXECUTED IN THE FIRST PASS OF THE PROGRAM. 
THESE TESTS REQUIRE MANUAL INTERVENTION TO CHANGE ADDRESS PLUGS AND 
REQUIRE A FULL COMPLEMENT 0* ADDRESS PLUGS (0 - 3). 

EXECUTE HEAD ALIGNMENT SUPPORT <!»)? 

IF "YES", TEST 11 IS EXECUTED IN THE FIRST PASS. 

EXECUTE MANUAL INTERVENTION TESTS (N)? 

IF "YES", TESTS 1, 2, 3, AND 4 ARE EXECUTED TO TEST BASIC INTTERFACE 
OPERATIONS, HEAD LOADING, HEAD UNLOADING, AND ALL STATE CHANGES. 

SPECIFY ERROR LIMIT (DECIMAL) (20)? 

THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF ERRORS ALLOWED. THIS 
LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS. IF THE ERROR LIMIT IS 
EXCEEDED, THE DRIVE IS DROPPED FROM FWRTHUR TESTING. 

DROP DRIVE IF NO RESPONSE (N)? 

IF THIS PARAMETER IS SPECIFIED AS YES, THE PROGRAM WILL CHECK EACH 

DRIVE BEFORE TESTIMG STARTS TO DETERMINE IF IT IS READY OR IF IT WILL 

RESPOND TO A GET STATUS. IF IT IS NOT READY AND WILL NOT RESPOND TO A 
GET STATUS, THE DRIVE IS DROPPED AND A MESSAGE IS PRINTED. 

3.0 ERROR INFORMATION 

ALL ERRORS ARE PRINTED VIA CONSOLE DEVICE. THE ERROR INCLUDFS ERROR 
MUMPER, TYPE AND PPOCRAM LOCATION. ERRORS INCLUDE REGISTERS 8EF0RE 
AND AT ERROR WITH RELEVENT DATA. 

3.1 ERROR REPORTING 

MOST ERROR REPORTS HAVE THE FOLLOWING FORMAT. 



ai 



PROG NAME ERR NOV TEST MUM SUBTEST NUV FRp PC 
ROUTINE TPACE SEQ (IN SEQ CALLED) 

(ADDRESS) 

(ADDRESS) 

« 

(ADDRESS) 
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TEST DESCRIPTION 

OPERATION: 

RESULT! 

ADDRESS OF UNIT UNDFP TEST 

PLCS RLDA RLBA RLMP CYL HD 

OP DOME 

DRIVE STATUS 



WORD NU« IS' (XX.XXXX) SP (YYYYYV) 
■" ~" '12P) 



TOTAL COMPARE 'ERRS: (7ZZ) OF ( 



TSS» 0N kX.I X £E5 TI0N T0 THE hBQW FORMAT IS PURE DATA COMPARE ERRORS 
i N 2^«J3^T E ?I En BY READ fRROS). TqrAJ THE FORMAT DOES NOT INCLUDE LINES 
5 THROUGH 10. ' 

LINE 1 IS THE ERROR HEADER AND IS PROVIDED BV THE SUPERVISOR. THE 
PRESENTLY J Br I JG E SXECufFD RV N * ME WI ™ THE NI1WBB ' P ° F TEST AND SURTEST 

THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES NOT REFER 
TO A PHYSICAL SUBTEST WITHIN A GIVEN TEST. RATHER IT REFLECTS THE 
MPS...9L TIMES A SUBTEST HAS BEEN EXECUTED WITHIN A TEST. 
CONSEQUENTLY, ON A TEST THAT TESTS AN INCREMENTAL TYPE OF OPERATION 
(SUCH A INCREMENTAL SES*S, READ ALL HEADERS FROM BOTH SURFACES, ETC.) 
THE SUBTEST WILL BE DESCRIPTIVE OF WHERE IN THE TEST THE ERROR 
OCCURRED. ' , 

THE ERROR P.C. IS THE PHYSICAL MEMORY LOCATION WHERE THE ERROR REPORT 
X&LrI£i TI £I E0 S . SINCE MANY FUNCTIONS ARE SUBROUTINE^, AND ERRORS APE 
REPORTED FROM SUBROUTINES, THE ERROR . P.C. IS NOT SUFFICIENT TO 
IDENTIFY THE LOCATION OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE 
IS PROVIDED. 

LINE 2 IS THE ROUTINE TRACE SEQUENCE. IF THE ERROR CALL IS INITIATED 
FROM WITHIN THE fEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF 
THE REPORT IS CKITTBD. IF THE CALL IS INITIATED FROM A ROUTINE (WHTCH 
MAY RE CALLED BY ANOTHER ROUTINE, WHICH MAY BE CALLFn BV ANOTHEP 
ROUTINE, ETC* SEVERAL LEVELS DEEP) THE ROUTINE TRACE" SEQUENCE 
PROVIDES A TRAIL TO THE -ACTUAL LOCATION WITHIN THE TEST THAT CALLED 
THE FIRST ROUTINE. THE FIRST ENTRY LISTED IS THE LOCATION WHERE THE 
FIRST ROUTINE WAS CALLED. 

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAMF, f]F 
THE TEST BEING PERFORMED. 

LINE 4 IDENTIFIES THE ACTUAL HARDWARE FUNCTION THAT IS BEING 
PERFORMED. ADDITIONAL INFORMATION ON THIS LINE IS DESCRIPTIVE OF 
SPECIFIC USE OF THE FUNCTION. FOR EXAMPLE, THE OPERATION LINE WILL 
READ "READ HEADERS FOR 40 HEADERS" WHEN ALL HEADERS ARE BEING READ 
FROM A TRACK. 

LINE 5 IDENTIFIES 'THE ERROR THAT HAS BEEN DETECTED. THE CONTENT OF 
M*f!L„. 5 , IDENTIFIES WHAT WAS BENG TESTED (SUCH AS DRIVE READY, 
CONTROLLER ERROR, DRIVE STATE, ETC.), »HAT TT IS AND WHAT IT SHOULD 
BE. LINE 5 MAY RE REPEATED IF MORE THAN ONE TESTED ITE" IS FOUND IN 
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ERROR. 

IN ADDITION LINE 5 WILL REPORT ANY HARDWARE DETECTED ERRORS SUCH AS 
OPERATION INCOMPLETE, HEADER CRC, ETC. IN THIS CASE THE EIRST LINE 
PRINTED AS RESULT WILL RE DETERMINED BY THE THREE ERROR RITS OPI, 
HNF/DLT, AND HCRC/DCRC. THE- LINE WILL RE DETERMINED AS IN THE 
FOLLOWING TRUTH TABLE: 

HNF/DLT PCRC/HCRC OPI "MESSAGE 

1 1 . 1 HDR NOT FND/HDR CRC/OPI ERROR 

11 HDR CRC ERROR 

1 1 HDR NOT PND ERROR 

10 DATA CRC ERROR 

1 ■ « DATA LATE ERROR 

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER TEST. THIS 
ADDRESS IS BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE NUMBER. 

LINE 7 NAMES THE CONTROLLER REGISTERS ' (AND CYLINDER AND HEAD WHERE 
THESE ARE APPLICABLE IN THE REPORT) TO BE REPORTED. 

LINE 8 PROVIDES THE CONTENTES OF CONTROLLER REGISTERS WHEN THE 
OPERATION WAS INITIATED. . 

LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS WHEN THE 
ERRQP BEING REPORTED WAS DETECTED. FREQUENTLY THE REGISTER CONTENTS 
OF OP INIT AND 0> DONE WILL BE DIFFERENT. OP INIT MAY INDICATE A SEEK 
WAS REING PERFORMED BUT OP DONE MAV INDICATE THE ERROR WAS DETECTED BY 
A READ HEADER. THE REASON IS THAT A SEEK WAS EXECUTED AND DID NOT 
PROPERLY POSITION HEADS AND WHEN THE READ HEADER WAS DONE THE HEADS 
WERE ON THE WRONG CYLINDER. 

LINE 10 IS THE DRIVE STATUS. THIS LINE IS ONLY REPORTED IF THE RLWP 
REGISTER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS. 

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A 
COMPARE OPERATION, EITHER DATA OR HEADERS. IN ADDITION, GOOD AND RAD 
DATA IS REPORTED FOR ALL READ ERRORS. 

3.1.1 SPECIFIC OPERATION MESSAGES 

THE OPERATION MESSAGE (LINE 4) IS GENERATED IN A DYNAMIC MANNER BASED 
ON THE SUBSYSTEM FUNCTION BEING EXECUTED AT THE TIME OF THE ERROR AND 
THE STATE OF THE FLAGS IN THE LOCATION TAGGED "OPFLAGS". THE POSSIBLE 
OPERATION MESSAGES ARE GIVEN BELOW. 

SEEK - FROM (CYL NUM) DIFF (CYL DIFF) SGN (0 OR 1) HD (0 OR 1) WHERE 
THE VALUES ARE GIVEN IN OCTAL. THIS MESSAGE IS THE RESULT OF A SEEK 
OPERATION THAT WAS VEPTFIED BY A READ HEADER AND THE HEAD POSITION 
AFTER A SEEK IS IN FRROR. (THE ACTUAL HEAD POSITION IN THIS ERROR 
SITUATION IS GIVEN IN THE RESULT LINE, LINE 5.) 
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READ DAT4 - 
DETECTED 



IS A READ DATA OPERATION WHERE SOVE FORM OF ERROR WAS 



JJL T , HE . AC ' ruAL READ OPERATION. THIS ERROR COULD BE HARDWARE DETECTED 
^S^-n^ ^RL T i -3C/ HEADER CRC, HEADER NOT FOUND, ETC., OR A SOFTWARE 
DETECTED ERROR SUCH AS DRIVE READY RESET AFTER A READ DATA COMPLETED. 

READ DATA WITH DATA COMPARE - IS AN ERROR THAT HAS DETECTED AS BAD 
DATA IN THE BUFFER AFTER A READ DATA OPERATION. WHEN THIS OPERATION 
1% SIS95ISS iI„J N0ICATES THE ACTUAL READ DATA OPERATION COMPLETED WITH 
NO DETECTED ERRORS BUT THE DATA WAS WRONG. 



READ HEADER FOR 40 
COMPARE - HAVE THE 
WITH DATA COMPARE. 



READ HEADER - 

WITH HEADER 

AND READ DATA 

READ HEADER OR READ 

DETECTED IN THE ACTUAL OPERATION 

WITH HEADER COMPARE INDICATES NO 

HEADER DATA ITSELF WAS IN ERROR. 



HEADERS - READ HEADER FOP 40 HEADERS 
SAME GENERAL MEANING AS THE READ DATA 
MESSAGES HAVING THE OPERATION OF 



HEADER FOR 40 HEADERS ARE THE RESULT OF ERRORS 
WHILE THE READ HEADER FOP 40 HEADERS 
ERROR IN THE ACTUAL OPERATION BUT THE 



WRITE DATA - RESET - 
BASIC OPERATIONS. 
HARDWARE OR SOFTWARE, 
FOR THE REPORT. 



GET STATUS - 
AS BEFORE, 
THE RESULT 



GET STATUS 
THE ERROR 
LINE (LINE 



WITH RESET - ARE ALL 

DETECTION CAN BE EITHER 

5) WILL DEFINE THE REASON 



LD DRV - UNLD DRV - ARE OPERATION MESSAGES THAT WILL APPEAR IN THE 
REPORT WHEN THE DRIVE LOAD AND UNLOAD SEQUENCE IS BEING TESTED. 

ANOTHER GROUP OF OPERATION QUALIFIERS WILL BE REPORTED FOP OPERATIONS 
THAT FAIL IN SPECIFIC TESTS. THESE TESTS ARE T«E WRITE/READ TEST PART 
2, OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE TEST. 



OPERATION 



QUALIFIER 



) 



READ DATA MTH DATA COMPARE 
READ DATA 
«RITE DATA 
READ HEADER 



FOL TO CC SEEK 

FOL 255 TO CC SEEK 

FOL WRITE (NO SEEK) 

ADJ. CYL WRITTEN AFTER FWD SK 

ADJ. CYL WRITTEN AFTER REV SK 

SK FWD, WRT-SK REV, OVERWRT 

SK REV, WRT-SK FWD, OVERWRT 



THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF THE 

QUALIFIERS. THE QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO HAKE THE 

REPORT MORS MEANINGFUL BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF 
OPERATIONS BEING DONE. 



THE QUALIFIERS "FOL TO CC SEEK" 
THAT THE SEQUENCE OF OPERATIONS 
TO THE CYLINDER WHERE THE TEST IS 



AND "FOL 255 TO CC SEEK" INDICATE 
INCLUDED A SEEK OF A GIVEN DIRECTION 
BEING PERFORMED. 
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WSm"T.,MI\H8 iB B J«o 9 ?8H«W ISMfer^gfcffiWI&r 



DONE 



18?iri UA yr, IE i^ AD l ], ,rFy L «S ITTEN *"&* FWD SK»« AND "ADJ CYt WRITTEN 
3.1.2 SPECIFIC RESULT MESSAGES 



SSI E S?fg»2?Sf NG SSF OPERATION AS WELL AS THE ERRORS SEEN AT THE FND S? 
THE OPERATION. ONLY THE FIRST ERROR SEEN IS REPORTED IN ALL CASES. 

THE GENERAL FORMAT FOR THF RESULT LINE IS 

RESULT:(VAR 1) IS (YAP 2) SR (VAR 3) (OPTIONAL QUALIFIER) 
WHERE VARIABLE 1 CAN RE ONE OF THE FOLLOWING? 



CO NT ERR 
DRV ERR 
NON-EXSTNT 
HDR CRC 
DATA CRC 
HDR NOT FND 
DATA LATE 



MEM 



(CONTROLLER ERROP) 
(DRIVE FRPOR) 
(NGN-EXISTANT MEMORY) 
(HEADER CRC ERROR) 

(HEADER NOT FOUND) 



HDR NOT FND/HDR CRC/GPI 

UR V RDl 

SELECTED HEAD 
VOL CHK 
COVER OPEN 
BRUSH HME 
WRT LCK 
HDS OUT 
DRV SEL ERR 
DRV STATE 



(ALL 3 BITS SFT) 
(DRIVE READY) 

(VOLUME CHECK) 

(BRUCH HOME) 
i WRITE LOCK) 
.HEADER OUT) 
.DRIVE SELECT ERROR) 
DRIVE STATE) 
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WRT^GAT^FRlT $5EJS§ L E.I£WECH»T SPD ERROR) ' '\ 

SFFK TTMPnnT $HSII E .. GATE ERROR) 1 

rtrp HpJnFoD (SKTO ERROR) 

SrT DAT FRR >£H?lg N J IN HEftD ERROR) 

ap RT lSc A OMP E L R F?TE IoSFIrM?} E * R ° R) 

HDR/DAT ERR <£EADER CRC 0R DATA CRC ERROR 

unp nht rwrwnni. t»«.o , 8IT H 0!r C S REGISTER) 

HDR NOT FND/DAT LATE ( y§&RP D ?G^ EOUND OR DATA LATE 

rvr /E8. B 9EJ?I T 12 0F c » REGISTER) 

lYL (CYLINDER WHEN REPORTING A SEEK ERROR) 

VARIABLE 2 WILL BE A VALUE THAT DEFINES WHAT THF prcnrT nr-rnjirrv tc 
VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE 2 SHOULD RE. 

BRUSH HVf£ IS 1 SB IN STATE 2 
HEADS OUT IS SB 1 IN STAT* \ 
DRV RDV IS SB I IN DATA XFFR i 

I l v e hS? d "!5 D o I iB l i s S,, s{5Il , f K up 

m sbs if \ w ? h fo E §i V/o mo " " 

RRV RDY IS 5 SB 1 IN SOOMS 
DRV RDV IS SB 1 IN 5SECONDS 

EXPLANATORY! 5 ' WHEN SEEN WITH THR OPERATION MESSAGE, WILL BE SELF 
OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE: 
DlD T Nof UPT T ° L * TE " WRTCH INDICftTE S THAT THE OPERATION BEING PERFORMED 
$88 PL 8o?ifS N ?SSc?E ECT S D AMOUNT OF TIME. THIS RESULT CAN BE CAUSFn RV 

i$&>" witu, ' wew|5 'Wiwrnhim «™b, sra 

c2M58T n g?TlSAI5i N ?Bl D ?Si?g l?Si E fl 8i g?I?,,i? PEPOI,TEn """ " E PR ^"« 

TSE'BAD'sECTGR'VfLES?'' "" " RE " " E MOS**" *BORTS « KPTTE TO PROTECT ■ "\ 
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"COULD NOT RETRIEVE DRIVE STATUS" IS REPORTED IF THE GET STATUS 
COMMAND DOES NOT COMPLETE SUCCESSFULLY WHEN THE STATUS IS REQUIRED TO 
REPORT AN ERROR. 

"OP I SET-NO DRIVE RESPONSE" IS REPORTED AS THE RFSULT WHEN THE GET 
STATUS COMMAND IS TIMED OUT (OPI SETS) WHEN THAT COMMAND IS BEING USED 
IN THE EARLV TESTS TO CHECK THE DRIVE INTERFACE. 

"NO INTERRUPT ON CMND COMPLETE" IS REPORTED WHEN THE COMMAND 
SUCCESSFULLY COMPLETES BUT THE CONTROLLER HAS NOT GENERATED AN 
INTERRUPT. 

"ERR DID NOT CLEAR" IS REPORTED WHEN THE RESET COMMAND DOES NOT CLEAR 
THE CONTROLLER ERRORS. THIS IS A CONTROLER RELATED PROBLEM BUT IS 
REPORTED IF SEEN IN THE DRIVE TEST PROGRAMS. 

"DRV SRR IS NOT CLEARED" IS REPORTED WHEN THE GET STATUS W/RESET 
COMMAND DOES NOT CLEAR ALL DRIVE ERRORS. 

"UNEXPECTED ERR" IS REPORTED WHEN THE CONTROLLER SENSES AN ERROR BUT 
NO ERROR BITS ARE SET. 

"BAD SEC FILE FMT ERR" IS REPORTED IF THE CONTENTS OF THE FILES DO NO 
CORRESPOND TO THE EXPECTED FORMAT. (REFER TO DEC STANDARD 144 FOR 
FORMAT SPECIFICS.) 

3.1.3 OTHER MESSAGES 

OTHER INFORMATION IS REPORTED UNDER VARIOUS CIRCUMSTANCES. APE: 

"BAD SEC FILES NOT STRD. ALL SEC ASSUMED GOOD." THIS MESSAGE IS 
PRINTED WHEN A PARTICULAR TEST REQUIRES THE PAD SECTOR FILES BUT THEY 
HAVE NOT BEEN STORED. THIS SITUATION WILL OCCUR I? THIS TEST IS 
STARTED OUT OF THE NORMAL PROGRAM SEQUENCE OR IF THE BAD SECTOR FILES 
COULD NOT BE READ. 

"ERROR LIMIT EXCEEDED-UNTT DROPPED" IS REPORTED (WITH THE UNIT NUMBER) 
WHEN MORE THAN THE SPECIFIED NUMBER OF ERRORS (DEFAULT 20) HAVE 
OCCURSD IN ANY SINGLE PASS. 



ERROR HALTS ARE SUPPOPTED PER DESCRIBED IN THE PREVIOUS SECTION WITH 
kGlHOE. ■"- ~- 



3.2 ERROR HALTS 

ERROR HALTS ARE .._... 

/FLAG J HOE. THERE ARE NO OTHER HALTS. 

4.0 PERFORMANCE AND PROGRESS REPORTS 

4.1 PERFORMANCE REPORTS 
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THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS. ' "\ 

4.2 PROGRESS REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. 

5.0 DEVICE INFORMATION TABLES 

THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4) REGISTERS FOR 
CONTROL OF THE SUBSYSTEM. 

w 
RLCS - CONTROL AND STATUS REGISTER (XXXXXO) 

BIT 15 - COMPOSITE ERROR * 

BIT 14 - DRIVE ERROR 

BIT 13 - NON EXISTANT WEMORY ERROR 

BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET) 

„™ ,. ~ D £ TA LATE (WITH BIT 10 CLEAR) 

BIT 11 - HEADER CRC (WITH BIT 10 SET) 

- DATA CRC (WITH BIT 10 CLEAR) \ 

BIT 10 - OPERATION INCOMPLETE llF 

BIT 9/8 - DRIVE SELECT (0-3) 
BIT 7 - CONTROLLER READY 
BIT 6 - INTERRUPT ENABLE 
BIT 5 - EXTENDED BUS ADDRESS (BIT 17) 
BIT 4 - EXTENDED BUS ADDRESS (BIT 16) 
BIT 3-1 - FUNCTION CODE 

- NOP (PDP-11) MAINT (LSI-11) 

1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

5 - WRITE DATA I 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 

BIT - DRIVE READY 

RLBA - BUS ADDRESS REGISTER (XXXXX2) 

BITS 15-1 BUS ADDRESS OF DATA TRANSFER 
BIT SHOULD BE 

RLDA -^DISK ADDRESS REGISTER (XXXXX4) J 

FOR READ/WRITE FUNCTIONS 
BIT 15 - MUST BE ZSPO(O) 
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8U i 4 ** 7 7 CYLINDER ADDRESS FOR TRANSFER 
BIT 6 - SURFACE FOR TRANSFER 
1& BIT 5-0 - SECTOR FOR TRANSFER (0-47) 

FOP SEEK. FUNCTION 

51^ I 4 * 7 " M R JE F SB E JSf£5« JS* MEW blinder 

BIT 6-5 - MUST BE ZSRO(Q) 

BIT 4 - SURFACE 

BIT 3 - MUST BE ZERO 
» SIX ? - S EEK DIRECTION< 1 - IN / - OUT ) 

» BIT 1 - MUST BE ZERO ' 

BIT C - MUST BE ONE(l) 

FOR GET STATUS FUNCTION 

8H- P-- 4 D5 I 5i* , 8IIlT SHOUL! ' BE 7ER0 

BIT 2 - MUST BE ZERO 
BIT 1 i MUST BE ONE 
BIT - MUST BE ONE 



WA 



RLMP - MULTIPURPOSE REGISTER 

FOR_READ/WRITE FUNCTION 

BIT 15 - - WORD COUNT(TWO*S COMPLIMENT) 
FOR READ HEADER FUNCTION 

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 

- ZERO WORD (SECOND READ) 

- HEADER CRC (THIRD READ) 

FOR GET STATUS FUNCTION 

HAS DRIVE STATUS 

BIT 15 - WRITE DATA ERROR 

BIT 14 - CURRENT HEAD ERROR(CHE) 

BIT 13 - WRITE LOCK STATUS(WL) 

BIT 12 - SEEK TIME OUT(SKTO) 

BIT 11 - SPIN ERROR(SPE) 

BIT 10 - WRITE GATE ERROR(WGE) 

BIT 9 - VOLUME CHECK(VC) 

III 3 " P tVE SELECT ERROR(DSE) 

BIT 7 - RESERVED(O) 

BIT 6 - SURFACE 
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BIT 5 - COVER OPEN 
BIT 4 - HEADS "O^E 
RIJ 3.- RRUSHES HOME 
BIT 2-0 -STATE PITS 

- LOAD STATE 

1 - SPIN UP 

2 - BPUSH CVCLE 

3 - LOAD HEADS 

4 " SEEK - TRACE COUNT INC 

5 - SEE* - LINEAR mqdf 

6 - UNLOAD HEADS 

7 - SPIN DOWN 

6.0 TEST SUMMARIES 

TEST 1 BASIC INTERFACE TEST (PART 1) 

LOAD IN DRIVE N "^P^^GET^STATUS WITH RESET. IF OPI SETS: 
SSKip C SB?*gSlSS I EIi?|g TSTBP N0T FADING/SHIFTING 

8;j?|; I Sp ,, 8JA?6S E gES8Ss 8o* c oM8**fngS? 

GKT STATUS DETECTION "ATLED. 

ilD I BIIIli"l!!»g I SllogEo EI'sli?! e "iP T H?S PFCEIVEP - "»« ope« 

BAD STATUS DATA "LINE 
BAD COVER SWITCH OP LHGIC 
DRIVE COMMAND SHIFT REGISTER 
BAT BRUSH HO«E SWITCH OR LOGIC 

CHECK WRITE LOC* STATUS BIT SET. If? NOT* 
BAD SWITCH OR WRITE LOCK LOGIC 



111111 

illllll 



DRIVE COMMAND SHIFT REGISTER 

CHECK STATE FOP 0. IF NOT: 
BAD STATE ROM 
DRIVE COMMAND SHIFT REGISTER 

CHECK VOLUME CHFCK RESET. IF NOT' 
BAD RESET DETECTION 
BAD VOLUME CHECK LOGIC 
DRIVE COMMAMD SHIFT REGISTER 

CHECK DRIVE ERROR RESET. IF NOT: 

BAD DRIVE ERROR INTERFACE 

SOME OT«SR ERROR STUCK' ON. REPORT WHICH ERROR. 
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MOTE: THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION modf 2 

TEST 2 BASIC INTERFACE TEST (PART 2) 

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE LOCK. 

DO GET STATUS LOOP CHECKING IF COVER OPFN OR wottk r nrtr 

IF ONE CHANGED RUT NOT THE OTHER, REPORT WHICH FAILURE: 

WRITE LOCK SWITCH OR LOGIC 
(0?) COVER OPEN SWITCH OR LOGIC 
DRIVE COMMAND SHIFT REGISTER 

IF NEITHER CHANGED, REPORT BOTH FAILURES. 

NOTE: THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODF ? 

TEST 3 HEAD LOADING TEST 

REQUEST OPERATOR TO PRESS LOAD SWITCH. 

2LSEL ST AX WS L00p CHECKING FOR STATE TO GO TO 1. WAIT 30 
ACTION S BY TYPING*?^* IF N ° CHANGE ' ftSK OPERATOR TO CONFIRM 

IF LOAD WAS PRESSED: 

8AD STATE ROM 



BAD LOAD SWITCH OR LOGIC 
CHECK THAT STATE 1 REMAINS FOR LESS THAN 3C' SECONDS. IF NOT 

BAD STATE ROM 



AND CHECK IF SPINUP TIMEOUT ERROR SET. IF NOT: 

BAD STATE ROM 

BAD TIMEOUT DETECTION LOGIC 

CHECK THAT STATE GOES TO 2. IF NOT: 



♦ 
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BAD STATE ROM 



CHECK THAT BRUSH HOME IS RESET 5 SECONDS OR LESS AFTER STATE 
lo 2. IF NOT J 

BAD BRUSH HOME SWITCH OR LOGIC 
BAD BRUSH MOTOR (AC SERVO) 

WAIT 30 SECONDS FOR BRUSH HOME TO SET. IE NOT: 

BAD AC SERVO 

9A0 SWITCH OR LATCH 

CHECK THAT STATE HAS CHANGED TO 3, IF NOT: 

BAD STATE ROM 

AETER STATE IS 3, CHECK HEADS OUT IS SET. IF NOT: 

BAD SWITCH 

BAD SEEK CONTROL ROM 
BAD VELOCITY POM 
BAD DC SERVO 

CHECK VOLUME CHECK IS SET. IF NOT: 

BAD VOLUME CHECK LOGIC 
CHECK IF DRIVE ERROR IS SET. IF NOT: 

BAD DRIVE ERROR LOGIC OR INTERFACE 
WAIT 300 MS FOR STATE TO CHANGE TO 4. IF IT DOESN'T CHANCE: 



STATE ROM BAD 

SEEK ROW 

VEL ROM 

GUARD BAND DETECTION 

WATT 15 MS FOR STATE TO CHANGE TO 5. 

8 MS AFTER STATE GOES TO 5, DRIVE READY SHOULD SET. IF NOT: 

INTEGRATOR OR NOLL DETECTION FAILURE ^ 1 

READY ONE SHOT BAD / 

ENABLE TIMEOUT H NOT SETTING OR COUNT LOGIC BAD 

NOTE: THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED, 
AND IS RUN IN FIRST PASS ONLY. 
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TEST 4 HEAD UNLOADING TEST 



CHECK DRIVE IS READY. IF NOT REPORT AND ASK OPERATOR TO MAKE 
DRIVE READY. 

REQUEST OPERATOR TO UNLOAD DRIVE. 

LOOP ON GET STATUS WAITING FOR STATE TO CHANGE TO *. IF NO 
CHANGE: 

BAD STATE ROM 
BAD SWITCH 

WAIT 300 MS FOR STATE TO CHANGE TO 7. IF NO CHANGE: 

BAD STATE ROM 

AFTER STATE IS 7, WAIT 30 SEC FOR STATE TO CHANGE TO STATE C. 
IF NO CHANGS: 

m BRAKING 
BAD AC SERVO 

REQUEST OPERATOR TO LOAD DRIVE. WAIT UNTIL DRIVE BECOMES 
READY. 

NOTE: THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED/ 
AND IS PUN IN FIRST PASS ONLY. 

TEST 5 DRIVE SELECT TEST 

INSTRfTCT THE OPERATOR TO REMOVE DRIVE ADDRFSS PLUCS FROM ALL 
DRIVES EXCEPT THE DRIVE UNDER TEST. ASK THAT CARRIAGE RETURN 



BE TYPED WHEN DONE. 

DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST. CHECK THAT NO 
ERRORS ARE REPORTED. DO GET STATUS TO ALL OTHER ADDRESSES AND 
CHECK THAT OP I SETS FOR ALL OTHER ADDRESSES. 

DO GET STATUS TO ADDRESS OF NEXT SEQUENTIAL ADDRESS. CHECK 
?££a\ £Q ERRORS ARE REPORTED. DO GET STATUS TO ALL OTHER 
ADDRRESSES AND CHECK THAT OPI SETS. 

REPEAT FOR ALL DRTVE ADDRESSES (0/1/2/3 - IS SEQUENTIAL 
AFTER 3). 

NOTES THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS 
RUN IN FIRST PASS ONLY. 
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TEST 6 DRIVE SELECT ERROR TEST 



REQUEST OPERATOR INSERT IDENTICAL ADDRESS PLUGS IN TWO DRIVES 
(MUST BE IDENTICAL TO NUMBER SPECIFIED EARLIER). REQUEST 
OPERATOR TYPE CARRIAGE RETURN WHEN READY. 

PROCEDURE WILL BE TO GET STATUS AND CHECK FOR DRIVE SELECT 
ERROR. THEN RESET THAT DRIVE AND VERIFY THAT DRIVE SELECT 
ERROR IS NOT REPORTED AGAIN. WAIT 1 SECOND, THEN CHANGE DRIVE 
SELECT TO A DIFFERENT NUMBER AND BACK AGAIN. DRIVE SELECT 
ERROR SHOULD SET AGAIN. 

OPERATOR SHOULD SEE THE FAULT LIGHT ON ON BOTH DRIVES. IF 
INDICATOR IS NOT SEEN ON A DRIVE: 

DRIVE SELECT ERROR DETECTION IS BAD IN THAT DRIVE. 

NOTE: THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2 
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS 
RUN IN FIRST PASS ONLY. 

4.2 STANDARD TESTS 

IF THE PROGRAM OPERATION MODE 1 IS SELECTED, THIS WILL BE THE 
FIRST TEST EXECUTED. THE DRIVE(S) TO BE TESTED MUST BE 
POWERED UP, HEADS LOADED, AND WRITE LOCK RESET. 

TEST 7 INITIAL STATE TEST 

DO GET STATUS, WAIT FOR INTERRUPT. 

IF OPI OCCURS: 

DRIVE INTERFACE IS DEAD 



DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING 
DRIVE IS NOT SELECTING OR AC LOW IS SET 
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL 
GET STATUS DETECTION FAILED. 

IF INTERRUPT OCCURS WITHOUT OPI, CHECK DRIVE READY. READY SET 
INDICATES HEADS ARE LOADED AND ARE TRACKING (POSITION 
WORKING). 

IF MANUAL INTERVENTION TESTS WERE RUN, CHECK THAT HEAD IS 
SELECTED. IF NOT: 

DRIVE CYCLE UP DID NOT SELECT HEAD 

IF DRIVE READY IS SET, CHECK STATUS MESSAGE RECEIVED. HEADS 
OUT AND BRUSH HOME MUST BE SET. IF NOT: 
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DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING 
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIATED 

CIRCUITRY BAD 
STATUS DATA BAD 

IF MANUAL INTERVENTION TESTS WERE RUN AND THIS IS THE FIRST 
PASS CHECK" THAT VOLUME CHECK AND DRIVE ERROR ARE SET. 

CHECK ALL ERROR BITS ARE 0. 

CHECK STATE IS 5. IF NOT: 

DRIVE COMMAND SHIFT REGISTER PAD 

TEST 3 INITIAL RESET STATE TEST 

DO GET STATUS HEAD SELECT = 0, WAIT FOR INTERRUPT. 

DO GET STATUS WITH RESET, WAIT FOR INTERRUPT. BOTH DRIVE 
ERROR AND VOLUME CHECK SHOULD NOW BE RESET. IF NOT: 

RESET DETECTION, RESET ERROR, OP VOLUME CHECK FLOP BAD 
DRIVE COMMAND SHIFT REGISTER BAD 

HEAD SELECTED BIT SHOULD STILL BE ZERO. IF NOT: 

DRIVE COMMAND SHIFT REGISTER BAD 

HEAD SELECT SHIFT REGISTER NOT LOADING 

TEST 9 DRIVE READV TEST 

DO SEEK WITH DIFFERENCE, SIGN 0, HEAD 0. WAIT FOR 
INTERRUPT. GET STATUS. CHECK STATE IS 5. IF NOT: 



DIFFERENCE COUNTER PICKING UP BITS 

COUNTER CIRCUITRY IS NOT INDICATING DIFFERENCE 

CHECK DRIVE READY IS RESET. IF NOT: 

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD 

WAIT APPROX 8 MS FOR READY TO SET. IF IT TAKES LONGER OR 
DOESN'T SET AT ALL: 

HEADS MAY HAVE MOVED (INTEGRATOR OR NULL DETECTION) 
READY ONE SHOT FAILED 

CHECK DRIVE ERROR DID NOT SET. I* 1 IT SET, DO GET STATUS AND 
REPORT WHICH ERROR. 

VERIFY HEAD SELECT IS ZERO. 
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TEST 10 SEEK SIGN SWITCH TEST 

DO 
IMTE 



DO SEEK WITH DIFFERENCE £ SIGN 1, HEAD *. WAIT FOR 
RRUPT. GET STATUS AND CHECK STATE IS 5. IF NOT: 



COUNT ROM 

DIFFERENCE COUNTER PICKING UP BITS 

COUNTER CIRCUITRY IS NOT INDICATING DIFFERENCE 

VERIFY DRIVE IS NOT READY 

WAIT APPROX 8 MS FOR READY TO SET. IF IT TAKES LONGER OR 
DOESN'T SET AT ALL: 

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION) 
READY ONE SHOT FAILED 
COUNT ROM 

VERIFY DRIVE ERROR DID NOT SET 

VERIFY HEAD SELECT IS ZERO. 

DO SEEK WITH DIFFERENCE, OPPOSITE SIGN, HEAD 0. REPEAT 
ABOVE TESTS. 

TEST 11 HEAD ALIGNMENT SUPPORT ROUTINE 

THIS TEST IS EXECUTED WHEN THE PROGRAM IS STARTED AT ADDRESS 
204, HEAD ALIGNMENT SUPPORT IS REQUESTED, AND IN THE FIRST 
PASS ONLY. IT IS BYPASSED IF THE PROGRAM IS STARTED AT ANY 
OTHER ADDRESS AND IN THE SECOND AND SUBSEQUENT PASSES. 

THIS TEST SELECTS THE DRIVE UNDER TEST AND LOOPS ON A GET 



STATUS WITH RESET. THE WRITE LOCK BIT IS MONITORED AND WHEN 
WRITE LOCK IS RESET HEAD TS SELECTED AND WHEN WRITE LOCK IS 
SET HEAD 1 IS SELECTED. THIS WILL PERMIT THE HEADS TO HE 
ALIGNED IN KEEPING WITH THE PRESENT HEAD ALIGNMENT PROCEDURE 
WITHOUT RETURNING TO THE CONSOLE. 

TYPING A CARRIAGE RETURN ON THE CONSOLE WILL TERMINATE THIS 
TEST ON THE DRIVE UNDER TEST. BEFORE TERMINATING, THE TEST 
WILL CHECK THAT WRITE LOCK IS RESET. IF NOT, THE OPERATOR 
WILL SE REQUESTED TO RESET WRITE LOCK. 

TEST 12 HEAD SWITCHING TEST 

DO SEEK WITH DIFFERENCE, SIGN 0# HEAD 1. WAIT FOR 
INTERRUPT. GET STATUS AND CHECK STATE IS 5. IF NOT: 

DIFFERENCE COUNTER IS PICKING UP BITS 
ASSOCIATED CIRCUITRY IS BAD 
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VERIFY DRIVE READY RESET. IF NOT: 

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAP 

JfAn„ftE p 59iS ?« MS F0R RSA0V T0 S ET. TF " IT TAKES LONGER OR 
DOESN'T SET AT ALL: 

HEADS APE MOVING (INTEGRATOR OR NULL DETECTION) 

READY ONE SHOT FAILED 

DRIVE CANNOT TRACK WITH THIS HEAD 

VERIFY DRIVE ERROR DID NOT SET. 

DO GET STATUS, CHEC* HEAD SELECT IS CORRECT. IF NOT: 

HEAD SELECT REGISTER BAD 

DRIVE COMMAND SHIFT REGISTER PAD 

00 SEEK WITH DIFFERENCE, SIGN 0, HEAD 0. REPEAT ABOVE 
TESTS. 

TEST 13 READ HEADER TEST (PART 1) 

DO SEEK WITH DIFFERENCE 0, HEAD €, SIGN 0. WAIT FOP INTERRUPT 
AND WAIT FOR DRIVE READY. 

DO READ HEADER, WAIT FOR INTERRUPT. 

CHECK IF HEADER CRC ERROR SET. IF SET: 

READ/WRITE BOARD BAD 
READ DATA LINE BAD 



CHECK IF BIT 6 OF WORD 1 IS SAME AS HEAD SELECT BIT IN STATUS. 

IF NOT J 

HEADS ARE SWITCHED (CABLE) 
HEAD SELECT LOGIC 

IF MANUAL INTERVENTION TESTS WERE RUN AND HEAD ALIGNMENT TESTS 

£&§?.pJ2L 5SU* ~$M C Z „ THftT "EADER M0RD INDICATES HEADS ARE 
POSITIONED OVER CYLINDER 0. STORE HEADER WORD 1. 

REPEAT TESTS USING HEAD 1. 

CHECK THAT CYLINDER PORTION OF STORED HEADER WORD 1 IS THE 
SAME AS HEADER WORD 1 OF THIS HEADER. IF NOT? 

HEADS ARE MISALIGNED 

TEST 14 READ HEADER TEST (PART 2) 



DO SEEK WITH DIFFERENCE 0, SIGN 6, HEAD 0. WAIT FOR 
INTERRUPT. WAIT FOR READY. 

DO 40 CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH 
READ. 

CHECK ALL HEADERS FOR SEQUENCE AND CONTENT (WORD 2 ALL ZERO/ 
RIT 15 WORD 1 AND 3 IS 0, HS BIT WORD 1 IS 0). IF NOT: 

BAD READ/WRITE BOARD 
BAD PACK 

DO SEEK WITH DIFFERENCE 0, SIGN 0, HEAD 1. REPEAT ABOVE TEST 
FOP HEAD 1. % 
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JBUS ADDRESS 
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;DRIVE SELECT BIT 
JCONTROLLEP TYPE 



OFFSET FOR SOFTWARE P-TABL5 
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NMENT FOR SOFTWARE P-TABLE SWITCHES 
;USE ALL CYLINDERS 
?DSE ALL SECTORS 
^EXECUTE DRIVE SELECT TEST 
??.X.ECUTE_HEiD ALIGNMENT TEST 



;AUTC SIZE FOR DRIVE-DROP IF NO RESPONSE 

JHEAD LIMIT SPFCIFIED FLAG 

?HI LTMIT SPECIFIED FLAG 

JLO LIMIT SPECIFIED 

JEXECIITE. MANUAL INTERVENTION TESTS 

?WRITE CHECf ' 
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TIOH FLAGS 



;get status ' 
;seek 

?read header 
;write data 

?READ DATA 

{5&XB8ttfoi cimRE HEADERS 

JCOMPOSITE OPERATION FLAGS 
JHSADER COMPARE OPERATION 
!2&J. A „ C P.S! P A RE OPERATION 
>£XPSiEJ J 5 OPERATION 
;UNLOAD OPERATION 

J6B, t ffl!H e s!8 , "-« p 5««'a 

?FWD SEEK SEQ 



SEQ 0040 



;rev SEEK SEQ 
?FW0 SEEK SEQ 



ADJ INTERFERENCE) 

ADJ INTERFERENCE) 

OVERWRITE) 

OVERWRITE) 
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JMSSSAGE QUALIFIER BITS 



EPPOP FLAGS FROM SUBROUTINES 

fill?? J 95 F S A I ION TOOK TO LONG 

= | l?§ N «SEEfg p 5uS? 0V op **""" 

- RITC ' 3 ?BAD CONTROLLER CLEAR 

!£,9F R Bfc„ft!iB status register 
;bus address register 

JDI-SK ADDRESS REGISTER 
;MULTI-P,UPPOSE REGISTER 

REGISTER PIT DEFINITIONS - CONTROL STATUS REGISTER 

JCONTROL AND STATUS REGISTER 

>any error bit 
;drive error pit 

' J^T^^MIL^MORY ERROR 
?pATA LATE ERROR 
JHEADER NOT FOUND ERROR 
? PiTS ct < E CK ERROR 

? HS5S?S.S MECK Epp OR 

jOPEPATION INCOMPLETE ERROR 
? 2SJ.XS„ SF LECT MASK 
^CONTROLLER READY MAS* 
INTERRUPT ENABLE MASK 
?BUS ADDRESS UPPER m A SK 
JDRIVE. READY MASK 




ASSEMBLY ROUTINES 
CZRLCB.PT1 



..-- MACY11 30AQ052) 

25-QCT-78 13:12 



22-N0V-78 16:2C PAGE 1-3 



88IHI 



062142 
00214'- 



181 002144 

m s p 

184 002152 



000077 

mm 

mm 
mm 



017777 
160000 



077fiOQ 
000077 
CQP100 



004000 

ol'o 
02" u 

04,,., 
100000 



04000 



000000 

8,QfP°2 

005032 
28 4*43 
004765 

mm 
Hi 



005071 



REGISTER 

= 776*00 
REGISTER 




PIT DEFINITIONS - DISK ADDRESS FOR DATA 
?SECT0R ADDRESS MASK 
>HE.AD SELECT MASK 
?CYLINDER ADDRESS MASK 

BIT DEFINITIONS - DISK ADDRESS FOR SEEK 
JMUST BE SET, BIT 

JCYLINDER DIFPERE 



SEQ 0041 



TERENCE MASK 



PIT DEFINITIONS S|p jl|5 JjjgRESS FOR GET STATUS 
;0RIVE RESET MASK 



PIT DEFINITIONS - MP FOR DATA XFER 
;WORD COUNT MASK 
JWORD COUNT RANGE MASK 

PIT DEFINITIONS - MP FOR READ HEADER 
?CYLINDER MASK 
;SECTOR MASK 
;HEAD SELECT MASK 

BIT DEFINITIONS - MP FOR GET STATUS 



JSTATE MASK 

ipRusg HOME 



JCOVER OPEN STATUS 
>HEAD SELECT STATUS 
'28J V 5 SELECT ERROR STATUS 
J VOLUME CHECK STATUS 
;WRITE GATE ERROR STATUS 
JSPIN ERROR STATUS 
;S ,E§!L TIM . E0U T. ERROR STATUS 
?WRITE LOCK STATUS 
JHRAD CURRENT ERROR STATUS 
;WRITE DATA ERROR STATUS 



TABLE OF OPERATION MESSAGES 
W Q R P ;FILLER 

M .WRCHK ^MESSAGE FOR WRITE CHECK 

J GET STATUS 
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MESSAGE ADDRESSES 
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?DRIVE ERROR 

?E9K* IS TANT MEMORY ERROR 
ISISRIS ^S T .?2 UN P-DATA LATE 
*HEAS?S-S p Dm ERROR 
^OPERATION INCOMPLETE 
;NO DRIVE STATUS AVAILARLE 

; S3JIE„DATA ERROR 
?HEAD CURRENT ERROR 

? SEEK TIMEOUT ERROR 
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?write gate error 

;drive select error 



L ...... PATTERN TABLE 

PATTBL: .WORD PAT1 

.WORD PAT2 

.WORD PIT3 

.WORD PAT4 
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.WORD PAT8 

.WORD PAT9 

.WORD PAT1C 
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300 002430 

1 mm 

303 002436 

304 002440 

181 mm 

307 002446 

! mm 

311 002454 

115 

314 

315 002462 

w nmi 

318 002470 

31? 002472 



2551 

!« mil 

350 0025' 
352 



000000 
00 " 




) 22-NOV-7B 16: 2C PAGE ! 


opflag: 


OPERATIONAL FUGS 


.WORD 


C 


done: 


.WORD 





hadone; 

ERHEAD: 


.WORD 


i 


.WORD 


morece: 


.WORD 





errswi: 


• WORD 


r- 


emu; 


.WORD 
.WORD 







tblstr: 


.WORD 





RLBAS: 


.WORD 


c 


rlvec: 


.WORD 





pldrv: 


• WORD 


n 


l.cs: 


.WORD 





L.ba: 


.WORD 





l.da: 


.WORD 





Ul\ 


• WORD 




.WORD 


I 


t.ba: 


.WORD 


t.da: 


.WORD 





t.mp: 

HDWRDl: 
HDWRD2: 






.WORD 


r 


.WORD 


A 


HDWRD3: 


.WORD 


6 


T.STAT: 


.WORD 





RESPARM 


. 


•WORD 




'.WORD 


r 




.WORD 


A 




.WORD 







• WORD 





DRVCNT: 


.WORD 





difaug: 


.WORD 


fl 


OLDCYL: 


.WORD 


X 


newcyl: 


.WORD 


curcyl: 


.WORD 


(> 


desdi*: 


.WOPD 





dessgn: 


.WORD 





deshd: 


.WORD 


*. 


dessec: 


.WORD 





tempo: 


.WORD 


r. 


TEMPI: 


.WORD 





TEMP 2: 
TEMP3: 


.WORD 


Q 


.WORD 


t 


TEMP4: 


.WORD 


& 


TEMP5: 


.WORD 


C 


TEMP6: 
TEMP7: 


.WORD 





.WORD 


f 


TEMP8: 


.WORD 





; 


TIMER 


STOPAGE 



;OPERATION FLAGS 
^OPERATION COMPLETE FLAG 
;HEAD ALIGNMENT DONE FLAG 
?ADDRESS OF ERROR HEADER 
;MOPE THAN 1 COMPARE ERROR 
JERROR RETURN SWITCH 
?BAD SECTOR FLAGS 
?WRITE SWITCH 
?TAPLE STORAGE 

JRL11 BASE ADDRESS 
;RL11 VECTOR ADDRESS 
JDPIVE NUMBER UNDER TEST 

CONTROLLER REGISTER STORAGE 
?BEFOPE OPERATION 



CONTROLLER REGISTER STORAGE 
? AFTER OPERATION 



JHEADER WORD STORAGE 



?PRIVE STATE STORAGE 

JPAPAM RLOCK FOP REASON REPORT 



;drive count for DRIVES UNDER TEST 

?DIFFEPENCE AUGMENT FOR SEEK 

JOLD CYLINDER 

;NEW CYLINDER 

JCURRENT CYLINDER 

;DSSIRED DIFFERENCE 

?DESIRED Sir,N 

;DESIRED HEAD 

PDESIRED SECTOR 

TEMPORARY STORAGE 

^TEMPORARY STARAGE 

TEMPORARY STOPAGE 

TEMPORARY STORAGE 

JTEMPORARY STORAGE 

TEMPORARY STORAGE 

TEMPORARY STORAGE 

;TEMPORARV STORAGE 

HEMPORARY STORAGE 
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ID: 



OFIN: 
OFINU- 

OFMir 

OFOUTU 

orin: 

ORINU: 

ORMID: 

QRMIDU: 

GROUT: 

oroutu: 

HFIN: 

hfinu: 
HFOUT: 



m 



.WORD 
.WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 

• WORD 
.WORD 
.WORD 
.WORD 

:S8EB 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

• WQBQ 



HFOUT: 

HFOUTD: 

HRIM: 

HRINU: 

HROUT: 

HROr™ 

AFM 

AFML__ 

ARMID: 

ARMfDU: 



EXOCYL: .WORD 

EXHCYL: .WORD 

EXACYL: .WORD 

EXROT: .WORD 

EPRVEC: .WORD 



150. 

m. 

250. 
4 



MISCELLANEOUS COUNTERS 

.WORD 
- .WORD 
[NT: .WORD 

.BLKW 64. 




.WORD 
.WORD 
.BYTE 
• BYTE 
.WORD 
.WORD 



;ONE 
>ONE 
;ONE 

'one 

?ONE 
>ONE 

;12R 

?12R 

;i2fl 

$128 
?256 
1256 



CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 
CYLINDER 

UPPER 

cylinder 
upp£r 



FORWARD 
FORWARD 
FORWARD 
REVERSE 
REVERSE 
REVERSE 
FORWARD 
FORWARD 
REVERSE 
REVERSE 
FORWARD 
REVERSE 



INNER 

MIDDLE 

OUTER 

INNER 

MIDDLE 

OUTER 

INNER 

OUTER 

INNER 

OUTER 



;EXPECTED TIME 
jEXPECTED TIME 



CYLINDER 

„, CYLINDER 

TIME 256 CYLINDER 

._. ROTATION TIME 

;ERPOR VECTOR USED WHEN AUTO SIZING 



;EXPECTED 

;expected_ 



?PASS COUNTER (LOCAL TO A TEST) 

JhlifflTOiittlP 1 t0 a test) 

^STORAGE FOR ERROR COUNTERS 
;PASS NUMBER FOR PROGRAM 
* C 9" N J E 5 fBr PARAMETER SET NUMBER 
?LOCAL ERROR COUNTER 
yiNHIBIT ERROR COUNTING FLAG 
JHARDWARE TRAP OCCURANCE 
;POWER FAILURE OCCURANCE 



? BAD SECTOP TABLES AND POINTERS 

BSFVAL: .WORD ;BAD SECTORS PILES VALID FLAG 



SBSFIL: .BLKW 
F8SFIL: .BLKW 



IBUFFt 

obuff: 

PHI! 



.BLKW 
.PLKW 

.WORD 
.WORD 
.WORD 
.WORD 



JSOFTWAPE BAD SECTOR FILE 
JFACTORY BAD SECTOR FILE 

;INPUT BUFFER 
?OUTPUT BUFFER 

^PATTERN I (ALL ZEROS) 



ASSEMBLY ROUTI 
.PT1 



NES 
25-OCT-7B 




m\ 
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SEQ 0046 



1321 
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«{CYU 
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/READ DATA / 

/READ HEADER / 

/WRITE CHECK/ * 

/WRITE DATA / 

/GET STATUS / 

/WITH DATA COMPARE / 

/WITH HDR COMPARE / 

/FDR 40 HDRS/ 

/WITH RESET / 

/OPERATION; / 

/RESULT: / 

/UNLD DRV/ 

/LD DRV / 

/FOL TO CC SEEK/ 

/FOL 255 TO CC SEEK/ 

.ASCI7. /FOL WRITE (NO SEEK)/ 



ASSEMBLY ROUTINES 
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/ADJ CYL WRTTN ftFTER REV SK/ 
£&9 J «.£X L K RTTN * p TER FWD S*> 

S S; gjS'ggJ FIL S E K S WD ' CVERWRT/ 

#iri E g E M8 n F 8?VR& BS/ 

/PUC M ADn-/ AD SEC F ° R PR ° G CflPftCITY ' 

/PRV=/ 

^5?Pl, UNAVA ILABLE FOR TEST/ 

/DRV DID NOT REC'R PROM PWR FAIL/ 

/RLPA/ 
/RLDA/ 
/RLMP/ 

/OP INIT 
/OP DONE 
/WORD / 

fOPI SET-NO DRV RESPONSE^ 

/N 9„i£TPPT 0N CMNn COMPLETE/ 

.ASCIZ /CNTLP HUNG (NO RDY)/ 

/ERR DID NOT CLR/ 

/VOL CHK NOT RSET/ 

/UNXPCTED ERR/ 

/ TEST/ 

/MAN INTERVENT STAT/ 

,ASCIZ /STATE CHG/ 

05?^P L ^IIMEOUT FAILED TO S 

ilhU m$P, G DRV S EL ERR/ 



/INTRPT TO LATE/ 



SET/ 



/INIT STATE/ 
/DRV SELECT/ 
/DRV PDV/ 
/SEEK SGN SWITCH/ 
/HD SWITCH/ 
/PD HDR (PI)/ 
/PD HDR <P2)/ 
/WRT LCK/ 

/DIFF OF 1 SEEK/ 
/OUT GRD BAND DETECT/ 
/TNC SEEK FWD HD 0/ 
/INC SEEK REV HD 0/ 
/INC SEEK FWD HD 1/ 

4IH2 25S„ BA , N D DETECT/ 
/INC SEEK REV HD 1/ 
/SEEK/ 

/fwd osc seek/ 
/rev osc seek/ 

/basic read data/ 
/% R t t/ S D e^ t * 



iTION TIM 
'A (P2U 
AND DATA 



MING/ 



PROTECTION/ 
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SEQ 0049 




iTERFERENCE/ 



Stati 



_ ROTATION TIME / 
D IN 100-S QF MICRO 



:o/ 



.8l CVL FWD/ 

601 CYL REV/ 

*2P CYL FWD/ 

2R CYL REV/ 

~ CYL FWD/ 

.255 CYL REV/ 

/HDS FAILED TO MOVE IN 



/TYPE "CTL C" & "(TINT" Tn pnwT - 



«.. ,-a *F.l.. CcK T0 S ^L ^5 0* SET FOR HD 
C*!_| ?CONT" TO CONTINUE TESTING/ 
- T/ 



\V 



^PR||S LOAD & WAIT FOR LOAD LIGHT / 

/PRESS LOAD & WAIT FOR RDY / 

/REMOVE ADD PLGS EXCPT / 

/INSRT ADD PLG / 

/IN ALL DRVS / 

/INSUFFICIENT DRVS FOR DRV SEL ERR TST/ 

/PPLCE ADD PLGS AS BEFORE/ 

/RESET WRT LCK / 

/ON / 

/ON DRV / 

/UNDER TEST/ 

/SET F WRT LC* / 

/SGN / 

/HD / 

/SEC / 

/CYL / 

/FROM / 

/ BYPASSED / 

/ROUTINE TRACE 

/DRV STAT/ 

/RAD SEC FILES 



SEQ (IN SEQ CALLED):/ 



. ... ___ . ._ NOT 
/TOT COMPARE ERRS: 



RESULT NAMES 

.ASCIZ /DRV RDY / 

/CONT ERR / 

/HDR CRC/ 
/DATA CRC/ 
/HDR NOT FND/ 
/DATA LATE/ 



STRD. 
/ 



ALL SEC ASSUMED GOOD./ 



ASCI7, 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 



JIrE2I!; ¥ Pt5 OUTI 2 N PoCT-78 J^IJ 1 3 °»< 1052 > "-"OV-78 U.20 PAGE 1-12 




SISIgVE DRIVE STATUS/ 
ATE-NO RDV/NO ERR/HDS OUT/ 
D HDS AFTER ERR C&EAR/ 



UNIT DROPPED/ 



§HDR NOT FND/HDR CRC/OPU 

/DRV ERR / 

/SELECTED HD / 

/VOL CHK / 

/COVER OPN / 

/BRUSH HME / 

/WRT LCK / 

/HDS OUT / 

/DRV SEL ERP / 

/DRV STATE / 

/SPTN TIMEOUT / 

/WRT GAT ERR / 

/SFFK TIMEOUT / 

/HEAD CUR ERR / 

/WRT DAT ERR / 

/OP INCOMPLETE / 

&HDR/DAT ERR 5. 

4HDR NOT FND/DAT LATE & 

/NON-EXSTNT MEM / 

/CYL / 

/COULD NOT R 

/UNKN DRV ST„ 

/FAIL TO RELD . 

/WRITE, ABORTED/ 

I. £55«tJ M f T EXCEEDED 

/ ERROR? 

<207><377><377> 

SETTINGS 

/ SR / 

CONDITIONS 

/ OF / 
/STATE 2/ 

inn l; 

&SEEK W/O MOTION& 
/FIRSTS MS/ 

/DATA XFER/ 
/5 SECDS/ 

/»N*T*N*T*T*0**smoi*N/ 
/»N*T*01%S1%T%01%N/ 
/*Nm01%Sl%T%T*N/ 
/*T*T/ 

/*N/ 

/*N*T*T*N/ 

/*N*T»06%51*T*01/ 

/*N|Sll*T%|4%T%S43 : T%S4*T%S41iT^S2%T/ 

/%N%T%06%S2%06%S2%06%S2%06%S3*03%S2%Ot%N/ 
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700 
701 
702 



m 



m 



nm 



m 



2045 4744' 



£ 

45 
45 

.11 

045 



81? 

047045 

m 



6 
047445 

mh 

051445 

83)3*5 

022516 
022524 
D51445 

mm 

042045 
051445 
352045 
022516 



ml 



FMT8: 


.ASCIZ 


FMT9: 


.ASC 


7. 


FMT11 


• .ASC 


7 


FMT12 


' .ASC 


7, 


FMT13 


. .ASC 

: .ASC 


7 


FMTI4 


7 


FMT15 
FMTJ6 
FMT17 


.ASC 


7 


.ASCI 

: .asc 


Z 

rz 


FMT18 


.ASC 


7. 


FMT19 
FMT20 


I .ASC 


7 


.ASC 


7 


FMT21 
FMT22 


.ASC 


7 


! .ASC 


7 


FMT23 
FHT24 


.ASC 


7 


.ASC 


7. 


FMT25 


.ASC 


7. 


FMT26 


I .ASC 


7 


FMT27 


.asc; 


7 


FMT28 


.ASC 


7, 


ENDMOD 


BGNMOD GLREPP 


; 


ERR1 


J 




; 


ERP2 


> 


EPP3 


; 




? 


ERP4 





/*N*T%06%S2*06%S2*06*S2*06/ 

/*N»T/ 

/%T%01/ 



i*T*03*Sm*03%Sl*T%Ql*Sl*T*Ol/ 
. . . ItD3%Sl*T*06%51*T*06/ 
/*N*SlltT*D3%Sl%T%06%Sl%T*06/ 
/*NSS5%Q6/ 
/»S10*T»NtSlltO6IN/ 
/*N%S13*T*S5*T*S4*T%S5%T%N/ 



) 



/*T%S 
7*T*S 



13*T*S5 

mm 



$mm 6 ottir* w 



/*T*S12*D6%S14%D6*N/ 
/*N%S11%T%03$S1*T*01%S1%TS02/ 

'%N*D2% 



2*T/ 



/%L 

/%N%S1%T%D4%T*T%D3W 

/*N*T*D3*T%D3*N/ 

/»N*T*T*T/ 



R3 POINTS TO RESULT MESSAGE 
RESULT: (R3) 

R3 POINTS TO RESULT NAME 

result: (R3) is l sb o 

R3 POINTS TO RESULT NAME 
RESULT: (R3) IS SB 1 

R3 POINTS TO RESULT NAME 

R4 POINTS TO RESULT CONDITIONS 

RESULT: (R3J IS 1 SB (R4) 

R3 POINTS TO RESULT NAME 

R4 POINTS TO RESULT CONDITIONS 

RESULT: (R3) IS SB 1 (R4) 

RESULT ROUTINE DETERMINES WHICH ERROR(S) ARE SET AND 

REPORTS ALL 

RESULT: "ERROR" IS 1 SB 

DRIVE STATE ERROR REPORT 

R3 CONTAINS EXPECTED STATE 

T.STAT CONTAINS BAD STATE 

RESULT: DRIVE STATE IS (T.STAT) SR (R3) 

HEAD POSITIONING ERROR REPORT 

NEWCYL CONTAINS EXPECTED CYLINDER 

HDWRD1 CONTAINS BAD CYLINDER 

RESULT: CYLINDER IS (HDWROl) SB (NEWCYL) 

UTILITY RESULT REPORT 
R3 POINTS TO RESULT NAME 



") 



bquti ^oct-7 B mil 1 30,uo52) 
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mi x 



022512 
016122 



BGNMSG 

IS: 



ENDMSG 
L10000: 



ENDMSG 
L10001: 



ERR1 

TSTR 

BNE 

INC 

MOV 

JSP 

MOV 

MOV 

JSR 

JSR 

MOV 

JSR 



EMT 

ERR2 

INC 

MOV 

JSP 

MOV 

MOV 

MOV 

CLP 

JSR 

JSP 

MOV 

JSR 



EMT 

FRR3 

INC 

MOV 

JSR 

MOV 

MOV 

CLR 

MOV 

JSR 

JSR 

MOV 

JSP 



R4 POINTS TO VALUE 1 
R5 POINTS TO VALUE 2 
RESULT: (R3-NAME) IS (R4-VALUE 1) SB (R5-VALUE 2) 

COMPARE ERROR REPORT 

R3 CONTAINS THE BAD WORD NUMBER 

R4 POINTS TO BAD WORD 

R5 POINTS TO GOOD WORD 

RESULT: WORD (R3) IS (R4) SR (R5) 



NOEPCT 

IS 

WERRPOINT 

P1,-(SP) 

PC/RPTOP 

SJ;!H: 

PC,RPTRES 



PC^RPTOP 
*3,(R1)+ 

Hip 

PC,RPTRES 
PC £ PPTREM 
<SP)+,R1 
PC/CKERLw 



C$MSG 



PC/RPTOP 
*3,(R1)+ 
R3 r (Rl)+ 



K.4/^ 

PC/RPTRES 
PC,CKF.RLM 



?TEST IP ERROR COUNTING INHIBITED 

;YES - SKIP 

;ELSE BUMP ERROR COUNT 

JSTORE Rl 

JREPORT OPERATION 

?SET PARAM NUMBER 

JINSERT MESSAGE ADDRESS POINTER 

;REPORT RESULTS 

JREPORT REMAINDER 



RESTORE Rl "" 

'" n CHECK IF ERROR COUNT EXCEEDED 



;go 



>BUMP ERROR COUNT 

; STORE PI 

?REPORT OPERATION 

?SET PARAM NUMBER 

INSERT NAME ADD POINTER 

JSET IS VALUE 

;SET SB VALUE 

;REPORT RESULTS 

;REPORT REMAINDER 

/RESTORE Rl 

?GO CHECK IF ERROR COUNT 



JRUMP ERROR COUNT 

;STORE PI 

;RSPORT OPERATION 

JSET PARAM NUMBER 

JINSERT NAME ADD POINTER 



) 



? SET IS VALUE 
;SET SB VALUE 



?REPORT RESULTS 
;RFPORT REMAINDER 

{85 s mig» p " 



F ERROR COUNT EXCEEDED 
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IIP 




L10002: 
BGNMSG 



urn 



mm, 

BGNMSG 

17$: 



FMT 

ERP4 

INC 

MOV 

JSP. 

MQV 

MOV 

MOV 

CLR 

MOV 

JSR 

JSR 

MOV 

JSR 



ERP5 

INC 

MQV 

JSR 

MOV 

MOV 

MOV 
JSR 
JSR 
MOV 
JSP 



EMT 

ERR6 

TSTB 

BNE 

INC 

MOV 

MOV 

MOV 

MQV 

JSP 

MOV 

MOV 

CLR 

MOV 

BIC 

CMP 

559 

MOV 
BIS 




PC,PPTR 
PCfcRPTR^ 
iSPl+zRl 
PC/CKERL*' 



3ERRPQINT 



PC,RPTRES 
PC £ RPTREM 
(SP) + «>R1 
PC,CKERLM 



NOERCT 

17$ 

GEPRPOINT 

R1,-(SP) 

P3,-fSP) 

P4/-(SP) 

P5,-ISPJ 

PC,RPTOP 

*3,(R1)+ 

T.CS,R3 
#177761, R3 
»4,P3 

*6ETSTAT / RLPA( 

RLDRV,R3 



JRUMP ERROR COUNT 

JSTORE Rl 

;REPORT OPERATION 

JSET PARAM NUMBER 

;|NSERT NAME ADD POINTER 

?SET IS VALUE 

;SET SB VALUE 

JTNSERT ADD OF CONDITION POINTER 

>BfESRI poults 

JREPORT REMAINDER 

^RESTORE Rl 

;G0 CHECK IF ERROR COUNT EXCEEDED 



JBUMP ERROR COUNT 
JSTORE Rl 
JREPORT OPERATION 
JSET PARAM NUMBER 

liH'fl «5iV DD P0INIER 

;SET SB VALUE 

JINSERT ADD OF CONDITION POINTER 

JREPORT RESULTS 

JREPORT REMAINDER 

JRESTORE Rl 

JGO CHECK IF ERROR COUNT EXCEEDED 



R25 



TEST IF ERROR COUNTING INHIBITED 
YES - SKIP 

ELSE BUMP ERROR COUNT 
STORE Rl 
STORE R3 
STORE R4 
STORE R5 

REPORT OPERATION 
SET PARAM NUMBER 
INSERT IS VALUE 
CLEAR FOP STATUS STORAGE 
GET T.CS 

AND CLEAR ALL BUT FUNCTION 
CHECK IF IT WAS GET STATUS 
Y£S . -STATUS IS IN T.MP, SKIP 
;ELSE DO GET STATUS 
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000000 



*00012 
010734 
004000 
010755 
011003 
004000 
010744 
010000 
010771 
100000 



9$: 



HI' 



107S: 



139$: 



MOV 

WAITUS 

MOV 

EMT 

BIT 

BNE 

MOV 

BR 

MOV 

MOV 

MOVB 

MOVB 

BIC 

MOV 

BIC 

PIS 

BIT 

BEQ 

BIT 

BNE 

BIT 

BNE 

MOV 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

18" 

MOV 

BR 

BIT 

BNE 

MOV 

BP 

MOV 

BR 

BIT 

BEG 

MOV 

BR 

PIT 

BEQ 

bT 

MOV 

CLR 
BIT 
BNE 
TST 
CLC 



R3,PLCS(R2) 

#10I,RO 

C$WTU 

&CRDYMSK,RLCS(R 

10$ 

j*PIT9,R3 

TEMP3+1/R3 

*o£lERR,R3 

115$ 

«HNFERR/R3 

10 7$ 

#FCPCERP,P3 

105$ 

#MOPERR,R4 

*FMT2B,»¥RSLT, 

«MERRS,-(SP) 

R4,-(SP) 

*MRSLT,-(SP) 

*FMT2g £ -(SP) 

SP/PO 
CSPNTR 

fife" 

BMHCRC,R4 

100$ 

#HCPCERR,R3 

109$ 

#MHNF,R4 

100$ 

8mhfCPC,R4 

100$ 

#DC*ERR,R3 

3m 
DLTERR,P3 



CRC/R4 



WW' 



R4 

P?,P3 
6$ 
(P4) + 



R4 
IT15,R5 



JWAIT FOR CONTROLLER READY 



2 ;\es - sHP" IF ° E,DV 

JELSE SET NO DRIVE STATUS BIT 
JIN MESSAGE WORD AND SKIP 
JSTORE STATUS FOR REPORT 

JGET ERROR RITS IN PROPER POSITION 

JGET ERROR PITS FROM MP REG 
;CLEAR UNUSED BITS 
JGET ERROR BITS FROM CS REG 
JCLEAR UNUSED BITS 

Imlll 2S E oS§ R 2^S F POSSIBLE ERRORS 

JTEST IF QPI SET 

;NO - SKIP 

JTEST IF HDR NOT FOUND ERROR 

JYES *• SKIP 

;test if rdr crc err 

JYES - SKIP 

JSET OPI ALONE MESSAGE 
R4,*MERRS JREPORT ERROR 



;skip 

jhdr crc message 

JJEST^IF HCRC WITH HDR NOT FND 
JMESSAGE HEADER NOT FOUND 
J"NF AND HCRC MESSAGE 

jtest if data check set, not opi 
jset'message data c«*eck 
jtest if data late error 

JNO - SKIP 

JSET MESSAGE DATA LATE 

JSET BIT POINTER ""OR TEST 
?£LEAR_R4_FOR_TABLE COUNT 



*IW 



JTEST IF BIT IS SET 
;YES - SKIP TO REPORT 
JELSE BUMP TARLE POINTER 
;CLEAR CARRY 
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6$: 



002466 
002466 



m 



25$: 



ROR 

BNE 

BR 

MOV 

JSP 

BR 

JSR 

TST 

BEQ 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIT 

BEQ 

BIT 

BNE 

CLR 

MOV 

MOV 

MOV 

MCV 

CMP 

BEQ 

CMP 

BGT 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

INC 

CMP 

INC 

DEC 

RNE 

TST 

BEQ 

MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 



R5 ;5HIFT BIT POINTER TO NEXT PIT 

3« ;LOOP IF NOT 

7S ., % , JELSE REPORT REMAINDER 

RESTRL(P4),(R1) ?INSERT NAME ADDRESS 

PC/RPTRES ;REPORT RESULTS 

4$ JGET NEXT BIT 

PC.PPTREM JREPORT REMAINDER 

TEMP3 ;TEST IF ANY NEW STATUS 

15$ sNO - SflP 

#FMT17,#STAMES,TEMP3 

TEMP3 £ -(SP) 

t*STAMES,-(SP) 



) 



P) 



?TEST IF DATA CHECK ERROR 

;NO - SKIP 

?TEST IF OPI SET 

;YES - SKIP 

JCLEAR COMPARE ERROR COUNT 

?SET COMPARE LENGTH 

;SET WORD COUNT 

;SET GOOD WORD POINTER 

?SET TEST WORD POINTER 

?CHECK WOPO 

JGOOD - SKIP 

;TEST IF COMPARE LIMIT REACHED 

JVES - SKIP 



SP,R0 

CSPNTP 

#10, SP 

#DCKERR,T.CS 

25S 

*OPIERR,T.CS 

MORECE 
«128.,R1 

#oWf,R5 
§IBUFF/R4 
Jj5) / (fi4) 

MORECE, «10. 

2CS , .__ 

iEMT15 f gMWORD,R3/ftRESE3,(R4),tfRESE4,(R5) 

(R5),-(SP) 

ttRESE4,-(SP) 

(P4),-(SP) 

ttPESE3,-(SP) 

R3# — ( SP ) 

#MWORD/-(SP) 

spCrO 

C5PNTR 

S8S*« 

Rl 

m 
27 i 

"".28. 



PECE 
5*+,(R4)+ 



ECE 



---ft.-. 1SET COMPARE LENGTH 
MT27#*TCERR,MORECE,#RESE6,Rl 



ftthM 

R1*-(SP) 

MUHECCf (SP 

ttTCERR,-(SP 
#FMT27,-(SP 



;PUMP ERROR COUNTER 

?BUMP POINTERS 

;PUMP COUNTER 

;DEC LENGTH COUNT 

?LOOP IF NOT DONE 

;TEST IF ANY COMPARE ERRORS 

JNO - SKIP 



*) 
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27$: 



ENDMSG 
L10005: 



ENDMSG 
L10006: 



MOV 
MOV 
EMT 
ADD 
MOV 
MOV 
MOV 
MCV 
JSR 



EMT 

ERR7 

INC 

MOV 

JSR 

MOV 

MOV 

MOV 

MOV 

JSR 

JSR 

MOV 

JSR 



3$: 



ENDMSG 
L100P7: 



005277 
01*146 



EMT 

ERPR 

INC 

MOV 

MOV 

JSP 

MOV 

MOV 

MOV 

MOV 

CLC 

ROP 

m 

TST 
MOV 
JSP 
JSR 

MOV 
MOV 
JSP 



ERR9 

INC 

"OV 



:J SP > 

TR 

< sp 

- )+,R4 

PJ+/R3 

,ck£rlm 



¥5, 

sp;r( 

C<!PNTB 

#l4,SP 

(SP* 

(SP 

(SP 

(S~ 

PC 



C$MSG 



PPPOINT 

§SHJf HJ* 

/RPTREM 

P)+/R1 

/CKERLM 



(JERPPOINT 

R" 

P 

^3/(Rl) 



wfiwEBi/ 



PC/RPTOP 



*MCYLOC f (Rl)+ 

w/,P3 

(PI) 

R3 

3$ 

(Pl) + 

NEWCYL.(Pl) 

PC/RPTRES 

PC/PPTREM 

(SPU/R3 

vSP)+/Rl 

PC,CKERLM 



GERPPOINT 
filz-(SP) 



?RESTORE R5, 4, 3, I 

;GO CHECK IF FRROP COUNT EXCEEDED 

?BUMP ERROR COUNT 

;STORE Rl 

;REPORT OPERATION 

;SET PAPAM NUMBER 

JINSERT NAME ADD POINTER 

2INSERT IS VALUE 

SR VALUE 

;REPORT RESULTS 

JREPORT REMAINDER 

JPESTORE Rl 

;GQ CHECK IF ERROR COUNT EXCEEDED 



7BUMP ERROR COUNT 
?STORE Rl 
; STORE 03 
JREPORT OPERATION 
JSST PARAM NUMBER 
'INSERT NAME ADD POINTER 
?GET HEADER 4fOR~ 



SHIFT Ci 



WORD 
OUNT 



") 



;align chap for printing 
; as is value 

?bump param pointer 
;insert sb value 
;repopt results 
jreport remainder 
^restore r3 

JRESTORE Rl 

JGO CHECK IF ERROR COUNT EXCEEDED 



;BUMP ERROR COUNT 
JSTORE Rl 
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ENDMSG 

L10010: 



MOV 
MOV 
MOV 
JSR 
JSP 
MOV 
JSR 



FMT 

ERP1* 

MOV 

TST 

RNF 

INC 

JSP 

PPTNTB 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 



m 

MPV 

MOV 
MOV 
MOV 
MQV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 



BE- 



NT B 



5S;?HK 

R3,(ri)+ 

R4/(RlW 

PC,RPTRES 
PC,PPTREM 
(SP)+#R1 

pcckerlm 



R1,-(SP) 

MO&ECE 



:R|POPT OPERATION 
JSET PARA" NUMBER 
;INSERT NAME ADD POINTER 



SULTS 

. ...MAINDER 

;RESTORE Rl 

?GQ CMFCK IF ERROR COUNT EXCEEDED 



JSTORE Rl 

?TEST IF 2ND BAD LINE 

?YES - SKIP 

-"""" ERRO - 



8t p 5EQii! T ? RUM P ERROR COUNT 
PC#RPTQP JREPORT OPERATION 

(sp)' #BASADD/RL /<R ' RLDRV+1> ?PEP0PT ln 

RLBASe-(SP) 

#basadd c -(sp) 
6fmt5,-(sp) 



fBASADD,- 

sp;r"J 

CJPWTB 
#14#SP 

?R5) -fsP) SLT/#MW0RD ' P3 ' #RES53 ' CR4> '* RESE4/(R5) 

ftREs64,-(SP) 

(P4)/-fsP) 

#RESE3,-(SP) 

CSPNTB 
#22, SP 

F^T15j*MW0RD r P3,»RESE3,(O4) / »RESE4 / (R5) JREPORT DATA 
RES 



JTNC COMPARE ERROP COUNT 
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1883 mil 

-13) 0146 



014636 
014640 



012601 
004737 

104023 



MACY11 3OA(1052) 
016122 



22-NOV-78 



.,« mil 
■ mm imi 

lAll n****. 00^160 



014644 000 
"14646 000 



m i\m ami 

1021 0: 4654 




EMpMSG 
LlOOllt 

ENDWOD 



MOV 
JSR 



EMT 
.EVEN 



1P:2^ PAGE 1-20 

pc,ck6rlm 

CSMSG 



BGNMOD HPTCODE 

:SoTd Will' 1 * 1 "" 2 

.wqrd 1*0 

.WORD 240 

. WORD C» 

.WORD 1 
ENDHW 
HO012: 
ENDMOD 

BGNMOD SPTCCDE 

MISWI«: tXE S««3-t$S«/2 



LOI 



.WORD 

.WORD 255, 

.WORD 6 '• 

•WORD 2C. 

.WORD 10. 



dclimw: 

ENDMOD 

BGNMOD^^DSPCODE 

DISPATCH 

.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

:K8?E 

.WORD 



81 



;RESTORE Rl 

?GO CHECK IF ERROR COUNT EXCEEDED 



PRIORITY DEFAULT 



s Hi! *k L CYLINDERS 
= USE ALL SECTORS 
= EXECUTE DRIVE SELECT TEST 
= |xECUTE T HEb ALIGNMENT 
- D S2?n DP ?L V i„I F „ N0 RESPONSE 

- S? f A 9 u ?§ L ISLf2?5LrEo FLAG 

s HILIMIT SPECIFIED FLAG 
= LO LIMIT SPECIFIED FLAG 
= DO MANUAL INTERVENTION 



JSRROR LIMIT 
COMPARE ERROR LI"IT 



ASSEMBLY ROUTINES 

-_ __- 25-OCT-7R 13: 12 



CZRLCB.PT1 



CYtl 3^(1052) 22-NOV-7B 16:2C PAGE 1-21 



014726 
014730 

014730 
014730 

mm 
mm 
mm 

014740 
014742 

0147 50 
014754 

J4754 
4760 



m x 



014754 

014762 
014764 

!1«H 



015016 
015022 

ill 

015034 

313818 

015056 

\m 

MY 

0151__ 
- - , 2 



my 

--120 

1 



015120 
0151" 

M 



031160 
031372 



012700 
10 4041 

104051 

103403 
042737 



012700 
10 4050 

103004 
013737 
000531 

012700 
104050 

103043 



my 

012700 
012701 
2^5020 

005301 
001375 
012737 

01 

032737 

00*"" 



100014 
002424 
000034 

002012 
000040 



mil 

002662 
000100 



VV i.0 13 

012737 
""2737 

Ji 

001002 
005037 
000432 



012700 
104050 



103734 
012700 



002660 

mm 

020000 

mm 

014660 
000037 



C02516 



002660 

mm 

014656 

mm 



.WORD 
.WORD 



m 



BGNMOD 
BGNINIT 



btTHHl «*340 
MOV ft340 £ R 

EMT CSSPRI 



) 



R0 



?CHECK IF MANUAL 
;VES - SKIP 



:ntervention allowed 



MANUAL 

EMT CSMANT 

BC0MPLETE IS 

PCS IS 

RIC ttMITESTIDRSELTIHDALIGN/MISWIW ;CLEAR ALL MANUAL 

} INTERVENTION FLAGS 

;CLEAR SUBROUTINE STACK INDEX 

?PQWER FAILURE 



CLR SSINDX 

READEF #EF.PWR 

MOV #EF.PWR,R0 

EMT CSREFG 
BNCOMPLETF 4S 

BCC 4S 

MOV LSUNIT, PWRFLG 

BP PWCON 

readef «ef. start 
mov Sef.start,ro 
emt csrefg 
rncomplete restart ; no 

BCC RESTART 

ON STAPT INITIALIZE TO START AT FTPST DRIVE, CLEAR 

PASS COUNT, AND ERROR COUNT. 



?NO, GO CHECK NEW PASS 

?SET POWER FAIL FLAG 
JGO SERVICE POWER FAIL 
;CHECK IF START 



SKIP 



til 



MOV 
CLR 
MOV 
MOV 
CLP 
DEC 
BNE 
MOV 
MOV 
MOV 
PIT 
BNE 
MOV 
BIT 
BNE 
CLR 
PR 



LSUNIT, DRVCNT JSET UP UNIT COUNT 
PASNUM ?CLEAR PASS NUMBER 

#ERRCNT,R0 

(R0) + 

Rl 

IS SLOOP TILL ALL CLEARED 

tfFRPCNT-2,ERRPOINT JlNIT ERROR POINTER 



;get a count 

?clear a error counter storage area 



-1/PSETNM 

k-IShadone 
#hicyl,miswiw 

ft377,HTLIMW 

#LOCYL/MISWIW 

5? 

LOLIMW 

SETDON 



>SEt PARAM SELEC. ._ 

?PRESET HEAD. ALIGN. DONE FLAG 



5^i 
RESTART: 

READEF 

MOV 

E"T 

bcomplete 
bcs rstrt 
continue: 

readef jtef. continue 
vov «ff. continue, ro 



;TEST 
>VES 

;ELSE ._„_ ... 

JTEST IF LO LIMIT SET 

JYES - SKIP 

;ELSE CLEAR LO LIMIT 



IF" HI LIMIT 
- SKIP 
INIT HILIMIT 
IF LO LIMIT 



T TO INITIAL VALUE 

""" DON" "' *" 
SET 



JfEF. RESTART 
ttEF. RESTART, RO 
C5PEFG 

RSTPT 



?CHECK IF RESTART 

?NO - S^IP 

;TEST IF CONTINUE 



I 



JlR E Lffi?Tr TI 51^CT-7a l5?H l 30 «< 1052 > "-"OV-78 16:20 P.GE 1-22 



ita3 

Ml 
Ml 

(2) 

1094 

18?? 

1097 
1098 

im 

!ioi 
81 

*04 
05 
06 



i:;o7 

k 

jjH 

\w 

7 

6 

1 5 

|4 

ill 

til 

H|f 

1126 

\m 

1129 



015126 
D15130 
015130 

15132 
.5132 

m 

.5140 
5142 

'■■mi 

.5150 
.5154 

im 

5176 



5240 

52 

52 

_5250 
-15252 
015254 



lii 55 





0,_ 

nf5 
o*~ 
o 
o 



52 

5300 

5304 

530 4 

5310 

5312 



10 40 50 
103452 



012700 
104050 



881722 

00 5237 
012737 

mm 

005237 
005337 

mu 

012702 






mm 

406 

m 

337 



103406 

ay: 

00533 
000736 



000' 

iii: 



005721 
012122 



012746 
012746 



062^06 
012700 



015316 005737 
015322 001135 

mm mm 



002516 

003062 
002660 

sww 

003064 
002516 

mm 



003072 
003072 



2 012746 016064 

\ mk mm 



002660 

mm 



C00340 
010064 

* 45 2 
003 

000010 

000000 

002450 



003062 

000020 014656 



nxtpas: 

PASNEW: 



F«T CSREFG 

BCOMPLETE PWCON 

BCS PWCON 

ON CONTINUE PICK UP UNIT LAST UNDER TEST 

mov def SIfInIS ro ?check if starting NEW PASS 

E"T CSREFG ' 
BCOMPLETE PASNEW 
BCS PASNEW 



TST 

RNF 

INC 

MOV 

MOV 

MOV 

INC 

DEC 

ADD 

MOV 

MOV 

GPHARD 

EMT 

MOV 

BCOMPLF 

PCS 

TST 

PEO 

DEC 

BR 

MOV 

MOV 

TST 

MOV 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

SETPRI 

MOV 

EMT 

MOV 



DRVCNT 

SETDON 

PASNUM 

#FPRCNT-2,E 

LSUNIT, PRVC 

#-l,PSETNM 

PSETNM 

DRVCNT 

»2,ERRPOINT 

PSETNM / R0 

#RLBAS/R2 

R0,P1 

CSGPHRD 

R0/R1 



RRPOINT 
NT 



;tsst if all units checked 

?NO - SKIP 

"ELSE BUMP PASS COUNT 



JlNIT THE ERROR POINTER 
;get ALL DRIVES 



75 



;NO 



7S 

PWRFLG 

NXTPAS 

PWRFLG 

NXTPAS 

SRlW/(R2)* 

(F1J + 
(P1)+,(R2)+ 



RLVEC,#INTHLR,«340 
#340, -(SP) 



JSET PARAM SELECT TO INITIAL 
?NEXT SET OF PARAMETERS 
JDOWN COUNT DRIVE TOTAL 
SUPDATE THE ERROR POINTER 
?SET UP TO GET PARAMETERS 



;SKIP IF GOOD PARAM 

SRECENT POWER FAILURE 

JACCOUNT FOR DRIVE 

JSTOPE PARAMETERS CSR 
; VECTOR 

;BUMP PAST PRIORITY 
; DRIVE 



tTNTHLR<-(SP 
!LVEC,-(SP) 

*3,-($P) 

CS5VEC 

S°' SP 
ttO/RO 
CSSPRI 
RLRAS,R2 



?SET UP VECTOR 



.) 



>S5T PRIORITY 



?SET RL BASE ADDRESS POINTER 



E C R H !Sr ^E F TS°^ n GETiTA S |gI/ Nn ° R ° P ° RIVE IF N ° ? READY AN ° 

ill Hi^: i;§ s i v*^ ss ° 



^H |AUTOSZ,MISWIW jTgST IF DOING AUTO SIZE 

?CHECK IF UNIPUS ADDRESS IS THER& BEFORE WE CHECK DRIVE READY 



) 



£SSEMBLV_ROUTIN|S 



life) 
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W 

2706 



000014 



000004 
003064 



10$: 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

TST 

BNE 

MOV 

BIS 

MOV 

BIT 

BNE 

MOV 

lie 

MOV 

WAITMS 

MOV 

EMT 

BIT 

BFQ 

CLPVFC 

MOV 

EMT 

PRINT? 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTF 

CLP 

BtSB 

MOV 

MOV 

MOV 

MOV 

MOV 

MQV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

EMT 

ADD 

DODU 

MOV 

EMT 

DOCLN 



E lfer sN '*^ r """« nc tI.p vector 

fTRPHAN,-(SP) 

lf T<sp ' 

RLDRV,R5 
jJCRDVVSK-R! 



SEQ 0061 



R5,RLCS 
jBDRDYf ■"' 
20 S 
'~"!TSTAT,PLDA(R2 



MSK,R5 
MSK/RLCS(R2 



jaccess bus 
/trap occur?? 

5c!I?'dp D ?v N e T N {m N b V |r STIGATE further 

-INSERT CONT READY 
L0AD_IN DRIVE NUMBER 



K. 



5,RLCS(I 

,R0 
WTM 



m: 



;CHECK IF DRIVE IS READY 
BS - GO D" 

ELSE INS_ 

AD R5 WITH „ 

EAR CONTRQLL 



;yes 

ItS!" 

;cli 



GO DO TEST 
ELSE_INSERT GET STATUS 



JLOAD CS REG 
JWAIT 4 '- 



STATUS FUNCTION 
READY 



§OPIERR,RLCS(R2)>TEST IF OPT SET 

fssv E c ' no - s " ,p 

EPRVEC,R0 
C?CVEC 






SP,P0 
CSPWTF 

I/5n'* PASADD ' RLBftS ' #DRVNAM / <R / RLDR v+i> 



-(SP) 

RLDRV4-1,<SP) 

«DPVNAM,-(SP) 

RLBASe-(SP) 

4BASADD f -(SP) 

#FMT5,-(SPJ 

*5/-(SP) 

SP^RO 

CSPNTF 

814, SP 

#FMT3 

§FMT3,-(SP) 

CSPNTF 

fi 4 fc sp 

PSETNM 

PSETNM / RC 

CSDODU 



JDROP DRIVE 
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20S: 
22$: 



MOV 
EMT 



CSDCLN 
ERRVEC 
ERRVEC/RC 
C<CVEC 



MANUAL 

EMT 

BNCOVPL 

BCC 



TST 

BNE 
BP 



CSMANI 

B II 

PASNUM 
4f 



4S 



JMANUAL INTERVENTION ALLOWED 
J NO 



*X£2' „9 HE £ K PA SS NUMBER 

'^I^psT pass, NEED DRIVE «E 

;FIRST PASS, PROGRAM WILL INSTRUCT USER 
?CHECK IF POWER FAILURE WAIT IS NEEDED 
45; 



000000 9$: 



TST 
BEQ 

MOV 
BIS 
MOV 
MOV 
BIT 
BNE 

WAITMS 

MOV 

EMT 

DEC 

BNE 

PPINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BR 



BGNMO 
BGNCL 



PWRFLG 

8§ 

RLDPV,R5 

#CRDYMSK,P5 

R5,RLCS(&2) 



ENDINIT 
L10014: 



SETVEC 

MOV 

MQV 

MOV 

MOV 



} NEEDED??? 
JNO, SKIP 

;DRIVE SELECT 
>SET CRDY 
;SELECT DRIVE 



R5,RLCS(R2) JSELECT DRIVE 
t£2nC5L „.„.., M * SI * TV SECOND TIMER 
£DRnYMSK,RLCS(R2) JDRIVE UP YF 



,PO 



PWR 



CfWTM 
Rl 

SP,R0 

CSPNTF 

tffc,SP 

lol 



ERRVEC,#TRPHAN / #340 



"?VES STArVtEST" 
JWAIT A SECOND 



;SIXTV GONE BY 
JNO 



,KKVt,L,Tn,KP 
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mm 



6036 

60 46 
6050 
6050 
6050 



016052 
016052 
516054 
616054 
016054 



mi 



053762 

mm 

mm 



013700 
4036 



mm 

10 4012 
000240 
104055 



OC0007 
000200 

?0P0Ol 

000003 

002452 
003072 
003072 
"02652 



000000 2S: 



§00 
00 



3$: 
55: 



ENDCLN 
L10015: 



iim t i 



CJSVEC 

#1o,sp 



SFTPRI #7 



MOV 

EMT 

BIT 

BEQ 

FIS 

BIT 

BNE 

WAITMS 

MOV 

EMT 

CLPVEC 

MOV 

EMT 

TST 

BEQ 

DEC 

CLPVEC 

MOV 

EMT 



EMT 
NOP 



JSET PR0RITV TO 7 



«7,R0 

CSSPRI 

|CRDYMSK / RLCS(R2) n ?TEST IF CONTROLLER READY 

3$ ?N0 LOOP UNTIL READY 

BkRRXftg& c §, ( ££)„,* SET DRIVE number 

#rRDY&SK,RLCS(R2) JTEST IF DRIVE BUSY 

5< ;N0 - Sffp 

#3 ;WUT 300 MS 

«3 / PC 

CSWTM 

EteS „„ ?RELEASE VEC 

RLVEC,R0 

CSCVEC 

PWRFLG ;PWR FAIL SET 

7$ ;NO 

PWRFLG 

ERRVEC 

ERRVEC,R0 

C^CVEC 



) 



016056 
016062 



016064 
0:6064 
016066 





016106 
016J14 

016120 



230 016122 



00002 



i m) 



003070 



lm ip mm 

.6102 011237 002474 
6106 012737 177777 



-x,j37 
015737 
013702 



000002 
027737 



02450 



164532 014666 



BGNSRV 



ENDSRV 
L10017: 



INC TRPFLG 
RTI 

INTHLR 

ABORTWAIT HANPLER * AB0PTS WAIT T * M E p AND STORES ALL RL11 REGS 

EMT 

MOV 

MQV 

MOV 
MOV 
MOV 
MOV 



CSABRT 
(R2* 



)*/T.C 
J+/T.B 
)+£t.D 



.CS 

.BA 
*# r.DA 
ik2),T.MP 
fc-1/DONE 
RLBAS,R2 



;STORE RL REGISTERS 



?SET DONE FLAG 
JRESTORE R2 



ERROR LIMIT CHECKING ROUTINE 

DROPS DRIVE IF ERROR LIMIT EXCEEDED 

CMP GERRPOINT/ERLIMW ;TEST IF 



:RROR LIMIT EXCEEDED 
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25 S ? 
254 

IP 

ill? 



5322 032762 

138 mm 

' 005737 
001433 

mm 

WW- 



000002 
000200 



m 



IS: 



m i mm 
' mm 



BLT 

INLOOP 

EMT 

BCOMPL 

BCS 

PRINTF 

MOV 

MOV 

MOV 

MOV 

"OV 

EMT 

ADD 

PRTNTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTF 

MOV 

MOV 

MOV 

EMT 

DODU 

MOV 

EVT 

DOCLN 

EMT 

RTS 



C5INLP 
ETE 



?NO - SKIP 

?CHEC* IF IV ERROR LOOP 



j t IS ?YES - SKIP 

ERLIMW,-fSP) 

sp'pO 

CSPNTF 

si°*sp 

-(sp)'* RASADn/RLRAS ' tfDRVNAM ' <R ' RLDRV+1 > 

RLDPV*1 / (SP) 

tfORVNAM'-(SP) 

RLBAS,-lSP) 

j*PASADD,-(5P) 

*FMT5,-fsP) 



,SP 



'nA SP) 

CSPNTF 
#14, S" 
j*PMT3 

CJPNTF 

PS&TNM 

PSETNM 7 R0 

C^DODU 

C^DCLN 
PC 



;DROP DPIVE 
;GO TO CLEAN rip 



000000 



mil mm 



66 006032 000002 



J READ 
READRL: MOV 
MOV 
MOV 
MOV 
RTS 

WATTIN: mov 
CLP 
BIT 
BEQ 
JSR 
TST 
BEQ 

1$: MOV 
PIT 
BEQ 
MOV 



AND, STORE ALL PL11 

RL0A< 
RLMPI 
PC 



TORE ALL RL1 

CSR(R2),T.CS 

Bl(F2),T.BA 

P*J R 2?/T.DA 

MP(P2),T.MP 



FOR CONTROLL 

inir isr 

tfCPDYMSK, 

5§ 

*MTOSLOW, 

*OPIERP,T 

*MDPRES,2 



REGISTERS 

;GET CS REG 

?GET BUS ADDRESS REG 

;GET DISK ADDRESS 

;g§T MULTI-PURPOSE REG 



ER TMEOUT TO FORCE INTERRUPT ROUTINE 
RLCSR( ;NO - sAim K.gO^ROLLER READY 

25ISB JtM L RER s 

W S I gS ^ e 58Tnt^8?? ed ER r flag 
{?H? fF ET op T ? s s e l ? w err 8" "oi3?e5 lag 

?Nf1 - SKTP 

?SET MESSAGE *OR NO DRIVE RESPONSE 



2(SP) 

CS 



(SP) 
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000207 




«{ 



3$: 

5$: 



RTS 

WAITMS 
MOV 
F.MT 

III 

JSP 

mov 

TST 
BNE 
JSR 

89 v 

BR 



4<J§: 
50$: 



CSWTM 
§CRDYMSK,RLCS(R2) 

PC,READRL 
■*MCONHNG,2(SP) 



?RETURN 

JWAIT 300 MS FOR TIMEOUT 



JTEST IF READY NOW SET 



II 



JYES - S.._ 

?READ RL REGS 

JSET MESSAGE FOR CONTROLLER HUNG 

JELSE CHECK IF INTERRUPT OCCURRED 
?YES - SKIP TO SET TO SLOW 
;read RL REGS 



2§ 



cRM8 R fc,«, ;pAD rl regs otl 1U aLU " 

NOINT,2CSP) >|^ ?Q S^TU N gN INTERRUPT FLAG 



OPERATION AND TEST INITIALIZE ROUTINE 

MgRECE JRESET MQPF COMPARE ERRORS 



CLP 

RTS 



GET ST 
! MOV 
MOV 
BR 
MOV 
MOV 
BR 
MOV 
CLR 
MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
BIT 
BEQ 
WAITMS 
MOV 
EMT 
MOV 
JSR 

BIT 
BNE 
BIT 
BNE 
BIT 



AT 2IL£B D 9|T STATUS WITH RESET ROUTINE 
lEgSSttifEi™ JSTOPE TEMP4 

#getstatTdrset,temp4 

GSTATG 

;STORE TEMP4 
MP4 ;SET FOR NO RESET 



;SET FOR RESET 



(SP) 



TEMP4,-(SP) 

ttGETSjAt/TE 

GSTATG 

TEMP4,- 

TEMP4 

SSfNDX,R3 
(R3U 

#4,S0PSTk 
R3/SSINDX 



AND T. REGS 



;STORE TEMP4 
JSET FOR SAVE L 
; STORE R3 

;get subroutine index 
?rump it for next entry 

A " " 



?.K§"5§H{ R3 > ?INSERT THIS CALL 

UPSTKCR3) ;ADJUST IT TO < 

JSTORE IT BACK 



ST IT TO CALLING LOCATION 



m 



PESE? 



TURN 



R0,-(SP) ;STDRE RO 
LSP)_ ?STORE Rl 

;SET FOR NO ERRO 

,,_.. <P4 ;TEST IF DRIVE y 

IIS JNO - SKIP 

*nRVERR,RLCS(R2) JTEST IF DRIVE ERROR SET 

J3 RQ ;aAIT FOR 300 MS FOR DRIVE TO SETTLE 

&l°Zt.Z\n. ? SET MA TT FOR 5 SEC 

PC / GSTAT JGET DRIVE STATUS 



j*DRDYMSK,T.CS 
#HOSTAT,T.MP 

is? 



?TEST IF DRIVE READY 
JYES -GO DO CLEAR 

;else test if heads out 

;that caused heads to 
;unload 
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002426 
002466 51$: 



016514 
011512 



5S: 
6$: 



mi 4Si 

002462 
002426 



000000 13$: 



BEQ 

PIS 

BR 

BIT 

BNE 

WAITMS 

MOV 

EMT 

DEC 

BNE 

MOV 

ERRHPD 

TRAP 

.WORD 

.WORD 

BR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

BR 

MOV 

CLR 

MOV 

BIC 

BIS 

MOV 

MOV 

WAITUS 

MOV 

EMT 

TST 

BEQ 

MOV 

BIC 

BIT 

BEQ 

BIT 

BEQ 

MOV 

BIT 

BNE 

WAITMS 

MOV 

EMT 

DEC 

BNE 

u* 

MOV 
ERRHPD 



5$ 
*PELDWT,OPFLAG 

*DRVEPR,T.CS 

Si 

tfl,P0 
C<?WTM 

U f 

SMUNDEF,R3 
10001. ,,ERR1 

BSff o6f 

TEMP4 
5S 

i»L.MP+2/P3 
-(R3),-(SP) 

85 
fGETSTAT,L.DA 

T?MP4,L.DA 

DONE 

RLDRV,L.CS 

KBIT10-L.CS 

*GTSTAT,L.CS 

L.DA,RLDA(R2> 

|.CS,PLCSP(P2) 

CSWTU 
DONE 

T. MP, T.STAT 

#*C<3TAMSK>,T. 

|DPSET,L.DA 

*fc|LDWT,OPFLAG 

tfP00.,Rl 
*PRDYMSK,PLCS( 



;no - SKIP 

5ELSE SET WAIT FLAG 

?SK?p TO CLEAR 

JTEST IF DRIVE ERROR NOW 

JYES - SKIP TO CLEAR 

JWATT FOR DRIVE TO GET ERROR, RDY, OR HC 

JDEC WAIT COUNTER 

;IF NOT DONE, LOOP 

JMESSAGE FOR UNDEFINED STATE 



?EXIT 

;no S skip SAVE REGISTERS 
;SET SAVE COUNT 
?SET ADDRESS OF FIRST SAVE 
;PUT REG QN STACK 

;dec count 

JLOOP UNTIL ALL SAVED 
?SET FOR GET STATUS 

JINSERT PRESET FOR STATUS 

JCLEAR INTERRUPT FLAG 
JSET UP TO GET STATUS 
;CLEAR FOP DRIVE 4-7 SPEC'D 

?LOAD RL REGS 

JLOAD CS REG 

JWAIT 100 US FOR INTERRUPT 



|CHECK g IF INTERRUPT QCCURREO 

™<5 T0 L E Mp REGISTER 
STA I >£ LS * R ALL BUT STATE 

JiTI KiHS'eM? SPECIFIE » 
JJgST IF^RELOAD WAIT FLAG SET 

n jSST«JIT COUNT FOR 60 SECONDS 

;yIs E - T sJip DRIVe N0W REA °* 

?CALL WAIT 



/GSTAT 

' R 2 



CTL', L ; 



;dec COUNT 
>LOOP IF NOT 



ERRl 



JSET RESULT MESSAGE POINTER 
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81SMS 

mm 

162763 



002440 
000000 



002424 



002466 
002474 



002466 7$: 



n0f)002 002424 



002440 



9$; 
1$: 
25! 

itV 

20s: 
22$: 



99$: 



888831 88§II8 



TRAP 

.WORD 

.WORD 

BR 

WAITUS 

MOV 

EMT 

if 

BIT 

BEQ 

BIT 

BEG 

MOV 

BP 

BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

BR 

MOV 

BR 

JSR 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

SUP 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

ADD 

RTS 

MOV 

RTS 



MOV 
MOV 
TST 
MOV 
SUB 



Ig§Si 0DE 

ERR1 

illlf RO 

CSWTU 

PC,GSTAT 

#ANYERR,T.CS 

ftVCSTAT/T.MP 

7$ 

#VCNRST,R3 

$DRVERR,T.CS 

95 

10004., ,ERR6 

T$ERCODE 

14S 

ttUNXERR,R3 

pc,waitin 

(SP)+ / R3 
10002. #,ERR1 

ERRl 
ERRSWI 

W A 

20 S 

(spW/RO 

(SP)+,R3 

(SP)+,TEMP4 

ERRSWI 

99$ 

ERRSWI, (SP) 

PC 

0(SP),(SP) 

PC 



R3,-(SP) 
SS1NDX/R3 



;go to exit 

;WAIT FOR IMS 



?GET DRIVE STATUS 

;TEST IF ANY ERROR 

?NO - SKIP 

KHECK IF VOLUME CHECK RESET 

J YE S SK I P 

;SET REASON POINTER 

?EXIT 

KHECK IF DRIVE ERROR 

;NO - SKIP 



JSXTT 

JSET REASON POINTER 

JEXIT 

;WAIT FOR INTERRUPT 

?STORE REASON POINTER FOR RETURN 



;CLEAR FOR ERROR RETURN 

?TEST IF REGISTERS WERE SAVED 

;NO - SKIP 

;SET POINTER TO RESTORE 

;SET REGISTER COUNT 

;RESTORE PEG 

?DEC COUNT 

JLOOP UNTIL ALL ARE RESTORED 

?REMOVE ENTRY FROM SUBROUT STACK 

;RESTORE PI 

;restore R3 

JRESTORE TEMP4 

?TEST IF ERROR RETURN 

J YES • SKIP 

?ADD IN ERROR RETURN 

?SET ERROR RETURN ADDRESS 



;STORE REGISTERS 
?GET SURROUTINE INDEX 
?8UMP IT FOR NEXT ENTRY 



) 



) 



(P3)+ „ .. .. _. . _. _ 

2fSP),SUBSTK(R3) 5INSERT THIS CALL 
*M,SUBSTK(R3) ADJUST IT TO CALLING LOCATION 



ssHSWrr^cw. Mfii 1 3M »«» 
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002424 




3$: 



5$: 

7s: 



002424 



13$: 



14$ 
65$ 



99$: 

; 



MOV 
MOV 
MOV 
MOV 
JSR 
65$ 
MOV 
MOV 
BIS 
BIC 
CLR 
MOV 
MOV 
ASL 
DEC 
BNE 
TST 
BEQ 
BIS 
TST 
BEQ 
BIS 
BIS 



R3,SSINDX 
RC,-(SP> 
R4>-?SP) 
#2, ERRSWI 
PC,RDYCHK 

SL.CS,R4 

§SEEK,fR4) 

RLDRV / (R4) 

3$ 



#DIRBIT,(R4) 
DESHD 



#HDSEL,(R4) 

#mbset5,(r4)+ 

45/RLDA(R2) 




JSTORE it back 



?SET FOR NO ERROR RETURN 
?CHECK IF DRIVE READY 

;GET POINTER TO L REGS 

;SET FOR SEEK 

JINSERT DRIVE NUMBER 

5CLEAR FOR DRIVE 4-7 SPEC'D 

?CLEAR BUS ADDRESS 

JLOAD DIFFERENCE 

? S . E I-£OyNT FOR SJIFT TO ALIGN 



;ALIGN DIFFERENCE IN DA 



JTEST IF SIGN SET 
;NO - SKIP 

?insert sign 
;test if head 
;yes - skip 
;insert head bit 
;insert marker bit 
;clear interrupt flag 

?SET WAIT COUNT FOR 800US 
?LOAD RL REGISTERS 

?ye! C ? $g I J NTERBUPTED 
?DEC„WAIT COUNT 



;if 



SKIP 



;go check done 

;go wait for timeout 

jget result message pointer 



?CLEAR FOR ERROR ERROR PETURN 
JR R IsT°2^E E SIgs Y FR0M SUBRGUT "'" 

;yes T - I skip R0R return 
;add in error return 

jsst error return address 



) 



DRIVE READY TEST ROUTINE. CHECKS DEIVE IS READY, IF NOT / WAIT 
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j| mm 



III 



i62 

140 
002 002424 



IS: 



000001 002466 
000001 

mm 
mm 

000001 002466 
000001 

100000 002466 



00207 



002440 
00244Q 
0000*0 



45: 

5$J 



99$: 



500 "S F 

MOV 

MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

it" 

BIT 

BNE 

WAITUS 

MOV 

NT 

DEC 

BNE 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

MOV 

JSP 

B?T 

BNE 

WAITMS 

MOV 

EMT 

DEC 

BNE 

BIT 

BEQ 

ERRHRP 

TRAP 

.WORD 

.WORD 

DEC 

CLR 

SOB 

MOV 

MOV 

MOV 

MOV 

TST 

BEG 

ADD 

RTS 

MOV 

RTS 



W 

:ndx,R3 



R3jsSlt 

Bill 



i¥HBJ M 

- , iSP) 

PifRRSWI 
#5000. -R1 
PC/GSTAT 

#DRDYMSK,T.CS 
55 

#1,R0 
CSWTU 
Rl 



JSTORE . _ _ 

JGET SUBROUTINE INDcx 

JBUMP IT FOR NEXT ENTRY 




ERPSWI,(SP) 
g(SP),(SP) 



) JlNSERT THIS CALL 
>JM°ST IT TO CALLl 
JSTORE IT BACK 



NG LOCATION 



>SET FOR NO ERROR RETURN 
JSET WAIT COUNT 
JGET DRIVE STATUS 

JTEST IP DRIVE READY 
JYES - EXIT 



JDEC WAIT COUNT 

;LOOP IF NOT 

;SET RESULT MESSAGE POINTER 

;SET CONDITION MESSAGE POINTER 



JSET WAIT COUNT FOR 5 SECONDS 
;GET DRIVE STATUS 

;TEST IF DRIVE READY 
JYES - SKIP 
;WAIT FOR 100MS 



;DEC WAIT COUNTER 
JLOOP UNTIL TIME DONE 
JTEST IF ANYERR SET 
JNO - SKIP 
JREPORT ALL ERRORS 



>S^Syn E „ERROP COUNT FOP DUAL ERRORS 
;CLEAR FOR ERROR RETURN 
JREMOVE ENTRY FROM SURROUT STACK 
JRESTORE REGS 



;test if error return 

jyes - skip 

jadd in error return 

;set error return address 



IIP 
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030262 001455 
"20264 



020300 

2 2 2 3 £ 4 
525304 
020306 
020310 

20322 
020324 
020332 

§20340 
020342 
020344 



012704 0117 



032737 

mm 

01270' 

mn 



020432 

032737 
001403 
035037 
000410 
005301 
001364 



000012 
002430 
000001 



002550 XRDHDC! 

XRDHD: 

XRDHDG! 



M 



is: 
2SJ 



002466 5$: 



000001 002466 
002440 



READ HE 
MOV 

CLR 
MOV 
MOV 
TST 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BNE 
MOV 
MOV 
MOV 
DEC 
BNE 
JSR 

5 5 $ 
CLP 
MOV 
MOV 
BIC 
BIS 

m 

MOV 

MOV 
MOV 

WAITUS 
MOV 

m 

BEQ 
BIT 

BNE 

MOV 

MOV 

ERRHPO 

TRAP 

.WORD 

.WORD 

MOV 



BEQ 

§&" 

DEC 

BNE 



ADERS ROUTINE. 
ttl,TEMP4 

R3#-<sp) 

«I?S X '* 3 

R3,SSINpX 
R ?/-<SP 

ri;-(sp 

R4,-(SP. 
|1m E P R 4 PSWI 

-CR35/-CSP) 

PC r ODVCMK 

DONE 
ttL.CS/Rl 

-(Ri),RLDA(R2) 

JioI-po 

14$ 

ttOROYMSK,T.CS 

JmDRDY,R3 
8CAFDT,R4 
0017-££ERR5 



JSET FLAG TO BYPASS REG STORAGE 

JGO DO IT 

;SET FLAG TO SAVE T. AMD L. REGS 

JSTORE REGISTERS 

JGET SUBROUTINE INDEX 

JBUMP IT FOR NEXT ENTRY 



) JINSERT THIS CALL 
JAD 



. IDJUST IT TO CALLING LOCATION 
;STORE IT BACK 



JSET FOR NO ERROR RETURN 

JTEST IF REGISTERS TO BE SAVED 

JNO - SKIP 

;SET POINTER FOR REGS 

;SET COUNT 

;SAVE REGISTER 

;dec count 

;loop until all are saved 

;check drive peadv 



JCLEAR INTERRUPT FLAG 

JGET ADDRESS OF LOAD REGS 

JLOAD DRIVE NUMBER 

JCLEAR FOR DRIVE 4-7 SPEC'D 

J.TNSEPT COMMAND 



__17 

ERR5 

*50.,P1 

PC,G5TAT 

#DRDYMSK,T.CS 

ERRSWI 
10$ 
Rl 
4$ 



JCLEAR BA 
JCLEAR DA 
JLOAD RL11 REGS 



JWAIT IMS FOR INTERRUPT 



JTEST IN INTERRUPT FLAG SET 

JNO - SKIP 

JTEST IP DRIVE READY 

JYES - SKIP 

;SET NO PEADY MESSAGE 

CONDITION OP AFTER DATA XFER 



JSFT WAIT COUNT FOR 5 SECONDS 
jget STATUS 

JTEST IF ORTVE HAS COME READY 

JNO - SKIP 

JCLEAR ERROR SWITCH 

JSKIP 

JDEC WAIT COUNT 

JLOOP UNTIL TIME DONE 
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001375 
012601 
O0C2C7 



177677 
000006 



12S5 

14$: 



60S 
65$ 



20$: 
002424 22$: 



MOV 

ERRHRD 

TRAP 

.WORD 

.WQPD 

BR 

TST 

BPL 

ERRHPD 

TRAP 

.WORD 

-WORD 

RR 

MOV 

MOV 

MOV 

BR 

JSR 

MOV 

ERRHPD 

TRAP 

.WORD 

.WORD 

CLR 

TST 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

SUB 

MOV 

MOV 

MOV 

MOV 

TST 

BEQ 

ADD 

RTS 

NOV 

RTS 



T5ERC0DE 

10014 

ERRS 

60$ 

T.CS 



ERR 
JtHD' 



WRD2<R1 



RLMP"(P25/(R1) + 
RLMP(R2),(Rl)+ 
65 $ 

pc,waitin 
(sp}+,r3 

10015. ,,ERR1 

ERRl 

EPPSWI 

JEVP4 

SH?-* 3 

(SP)+,(R3)+ 

20$ 

#2,SSINDX 

(SP)+,R4 

<SP)+,R1 

(SP)+,RQ 

<SP)+,R3 

EPRSWI 

99$ 

EPRSWI, (SP) 

11 

PC 



SP),(SP) 



JSET CONDITION AF^ER 5 SECONDS 



JEXIT 

JCHECK FOR ANY ERRORS 

;N0 - SKIP 

;REPOPT ALL ERRORS 



JGET POINTER 

JSTORE LAST TWO HEADER WORDS 

JEXIT 

;WAIT FOR INTERRUPT 

;GET RESULTS 

JREPORT 



JCLEAR FOR ERROR ERROR RETURN 
;TEST IF REGISTERS WERE SAVED 
;NO - SKIP 

jset pointer to restore regs 

jset count 

jrestore register 

jdec count 

;loop until all are restored 

jremove entry from surrout stack 

restore regs 



;TEST IF ERROR RETURN 
;YES - SKIP 

;add in error return 
;set error return address 



) 



POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB. 



MOV 

BR 

MOV 

MOV 
BIC 
MOV 
ASR 
DEC 
BNE 
MOV 
RTS 



HDWRD1,R5 JSTART FOP POSITION HD BIT IN WD 
POSHD0_ JSKIP 

;START FOR POSITION HD BIT IN MP 
JSTORE PI 

R5 JCLEAR ALL RUT HEAD SEL BIT 

JSET SHIFT COUNT 

JSHIFT FOR RI^HT JUSTIFY 



T,MP,R5 ;S 
irCHSSTAT, 

r 

i< 

(SP)+,R1 
PC 



^ 



JRESTORF Rl 
; PR TURN 
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E R cS£ElM3°8SJKfi E D ?5*i?f? ,i DF wm PASSED T0 THE R0UTINE 



260 
260 



000002 002440 
016514 



000001 002466 



000001 002466 



100000 002466 8$: 



002662 
"2440 

0002 002424 



lis: 



MOV 

TST 

MOV 

SUB 

MOV 

MOV 

MOV 

MOV 

MOV 

JSP 

IDS 

BIT 

PNF 

DEC 

BEQ 

WRITUS 

MOV 

E"T 

BR 

MOV 

ERRHPD 

TRAP 

.WORD 

.WORD 

MOV 

JSP 

10$ 

BIT 

PNF 

WAITMS 

MOV 

EMT 

DEC 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

BP 

BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

DEC 

CLP 

SUP 

MOV 

MOV 

MOV 

MOV 



MOV 



P3,-(SP) 



JSTORE P3 



SSINDX/Pr' ;get subroutine' index 

f 3 4 ;i^5! (R3) \^\\W& Z ™-™ ™ m ™ 

R4,-(SP) 

B' F Al$V * SET PQR NO ERROR RETURN 

PC,GSTAT JGET DRIVE STATUS 



7? 

*1,R0 
C$WTU 

SWDRDY / P3 

10020. //ERP3 

TSEPCODE 

iC020 

EPP3 

«50.,P1 

PC,CSTAT 

J*DPDYMSK,T.CS 

H 

*1,P0 
C5WTM 
R l 

«fi5SEC/R4 
10C21.,,ERR5 

im M 

ERR? 

11$ 

&ANYERR,T.CS 

10022. <r,ERR6 

TSEPCODE 

10022 

ERP6 

EPPCNT 

ERRSWI 

fc2#SSINDX 

"sph,r4 

SP)+/R1 
SPH/RO 
SP)«-,R3 



;CHECK IF READY 
;VES - SKIP 
;OEC WAIT COUNT 
;SKIP ip o 



JSET N4ME MESSAGE PTR 
JREPORT READY ERROR 



JSET WAIT COUNT FOP 5 SECONDS 

;get drive status 

jtest if drive ready 
jyes - skip 

JWAIT 100 MS 



JDEC WAIT COUNT 

JLOOP UNTIL TIME DONE 

JSET CONDITION AFTER 5 SECDS 



JEXIT 

JTEST IF ANY ERROR SET 

JNO - s«ap 
JREPORT ALL ERRORS 



JDEC FOR DOUBLE ERROR REPORT 
f£&5A5.. F 9!Li: RRaR FRR OR RETURN 
* R £22y,E ENTRY FR 0« SURROUT STAC* 
JRESTORE REGISTERS 



JRESTORE R3 



) 
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933 
,934 

.935 
*936 

917 

938 

%\l 

941 

mi 

III 

.948 
949 

la 

.952 
.953 
954 
955 
956 
957 

m 

960 
961 
962 
963 
964 
9 65 
966 
967 
968 



m 



021004 

o 



021010 00140 

Hi? M 

021020 C1761 



02 

02 
n 2 
2 

02_ 
02 

U 

02:. 

H' 

Q2 
02:. 



10 26 

.030 

'Jit 

Wa 

*0 52 

056 



is 

:.16 

.24 



32 

36 

r 40 

.44 

*46 



U 2 
200 

204 

206 



005737 

00 

06 

00 

C17616 
00020" 



P !■ 

66 



010346 
013703 
005723 
016663 
162763 
010337 
010046 
010146 
010446 



000000 



010346 
013703 

9122^3 
162763 
010337 
010046 

TM 
II 

012705 
006203 
005305 

MP 

162737 
012605 

mm 

005737 

0014C3 

8P? 

017616 
O002C7 



OfiOOO* 
002424 

020102 

WM 



002526 
OC0002 



002440 
002440 

000000 



002424 



002424 

000002 002260 

ifflli 002260 



010446 

mm mm 

052737 lOOOOO 

62704 000006 



002426 



99$: 



m 88511? 



4§! 

65$: 



99$: 



TST 
BEQ 
ADD 
RTS 
MOV 
RTS 

GET POS 

(WHERE 

NUMBER 

MOV 

MOV 

TST 

MOV 

SUP 

MOV 

MOV 

MOV 

JSP 

65$ 

MOV 



ASP 
DFC 
PNE 
MOV 
SUB 
MOV 
MOV 
MOV 
TST 
PFQ 
ADD 
RTS 
MOV 
RTS 



ERRSWI 

99$ 

£RRSWI,(SP) 

a(SP),(SP) 
Re 



;test if error return 

jyes - skip 

jadd in error return 

?set error return address 



U l 9o 55JIJIHE.- READS A HEADER FROM CURRENT CYLINDER 
J IS PRESENTLY POSITIONED) AND STORES CYLINDER 

R3,-(§py 

SSINDX,R3 

(R3) + 

2(SP),SUBSTK(R3) 

«4,SUBSTK(R3) 

R3,SSINDX 

P0,-(SP) 

PC,XRDHD 



jSTORE REGISTERS 
JGET SUBROUTINE INDEX 
JBUMP IT FOR NEXT ENTRY 

{INSERT THIS CALL 
MDJUjT IT TO CALLING LOCATION 
JSTORE IT BACK 



JDQ READ HEADER 



HDWRD1,R3 

P5 

4$ 

R3,CURCYL 

§2,SSINDX 

<SP)+,P5 

(SP)+,RQ 

<SP)+£r3 

ERRSWT 

99$ 

ERRSWI,(SP) 



JGET HEADER WORD 
JSHIFT TO RIGHT JUSTIFY 



. „__ BUT CYLINDER 
SHtFT_COUNT 



SP),(SP) 



READ ALL HEADERS ROUTINE. 
IN IBUFF. 



JSTORE AS CURRENT CYLINDER 
JREMOVE ENTRY FROM SUBROUT STACK 
JRESTORE REGISTERS 

JTEST IF ERROR RETURN 

JYES - SKIP 

JADD IN ERROR RETURN 

JSET ERROR RETURN ADDRESS 

40 HEADERS ARE READ AND STORED 



0010 002456 



M.OV 
MOV 
TST 
MOV 
SUB 
MOV 

MOV 

MOV 
MOV 
MOV 
MOV 
BIS 

ycv 

MOV 
ADD 
MOV 



R 3#-(SP) 

SSINDX/R3 



5f5 x 



jstore registers 

;get " 

;rump 



JGET SUBROUTiNE'lNDEX 

IT FOR NEXT ENTRY 



;ADJUST,IT TO CALLING LOCATION 
•STORE IT BACK 



R3/SSINDX 
R0,-(SP) 

He:il!f" 

iHDR40,OPFLAG 

f*RLMp,R4 
frl0,L.CS 



JSET FOP NO ERROR RETURN 

JSET HEADER COUNT 

JSET 40 HDR OP FLAG 

>§II £QIK TEP T0 STORE HDRS 

JGET BASE ADDRESS 

;MAKE IT POINT TO MP REG 

JLOAD FOR READ HEADER, NO INTERRUPT 
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mm 



000000 6$: 
000000 7$: 



12$: 



002424 65$: 



99$: 



RTS 
BIC 
CLP 

CLR 
TST 
BEQ 
BIS 
MOV 
MOV 
BIT 
BNE 
JSP 

SSi 

MOV 

BIT 

BME 

DEC 

PNE 

JSR 

JSP 

MOV 

ERPHRD 

TRAP 

.WORD 

.WORD 

CLP 

BR 

TST 

BPL 

EPRHRD 

TPAP 

• WORD 

.WORD 

CLP 

RR 

MQV 

mOv 

MOV 

DEC 

PNE 

SUB 

MOV 

MOV 

MOV 

MOV 

TST 



MOV 

RTS 



RLDRV^L.CS 

ttPITl5,L.CS 

L.BA 

L.DA 

DFSHD 

PC,PDYCHK 

L.CS,RLCS(R2) 
$77777, RO 
|CRDYMSK,RLCS( 

PC,PEADRL 
PCirWAITIN 
(SP)4-,R3 
10025. ,,FRR1 
TIERCODE 

4882 s 

EPRSWI 
65$ 

lb 

lCtf26.,,ERR6 
JSFPCODE 

EPPSwr 



-INSERT DRIVE NUMRER 

'Sf-ISS £9.° DRTVF; 4 - 7 SPEC'D 

1 Cut AR H A 

CLEAR DA 

TEST IF HEAD 

YE S m SKIP 

ELSE INSERT HEAD 

LOAD RLDA REG 

LOAD RLBA 

jte 

YES - SKIP 



SEO 0074 



ST IF CONTROLLER READY 




JELSF CHECK READY 

;LOAD RLCS PEG 

JSET COUNT FOR WAIT 

?Y^S H - C SKIP AT 0PERATI0N COMPLETED 

JD5C COUNT 

JSKIP IB 1 NOT VET 3 

>ELSE GET ALL REGISTERS 

JELSE WAIT FOR TI«EOUT 

JGET RESULT MESSAGE POINTER 



JCLEAR FOP ERROR RETURN 
Ho" SKIP*" 7 ERPQRS 



JCLEAR FOR ERROR RETURN 
JSTOPE HEADER WORDS 

JOEC HEADEP COUNT 

KISSrVBEM??! mR00T "'" 



|T||TJF ERROR RETURN 
JADD IN ERROR RETURN 
JSET ERROR RETURN ADDRESS 



^M^IiMSfe PSS¥IS*"S?*S2Z I, " C m " SEQDENCE » N ° 
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I ERROP 

rptop: mov 

TST 

BFQ 

MOV 

PPINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 
3$: PPINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ADD 

CMP 

BLF 
15! PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 
002426 BIC 

MOV 

BIC 

CMP 

BNE 

A02426 PIS 

2$: CMP 

BNE 

002426 BIS 

205? CMP 

BNE 
002426 BTS 

22$: PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CMP 

BNE 
002462 BIT 

BEO 

MOV 

BR 




,TSST SUBROUTINE INDEX 

JSKIP IF 
42, R4 >SET INDEXER TO FIRST ENTRY 

ttFMT9*ttSEQMES ;PRINT "SUBROUTINE CALL SEQ" 
ifSEQMES*-(SP) 
&FMT9*-(SP) 
«2*-(SP) 
SP*R0 
C$PNTB 
H,S? 

tfFMT16*SUBSTK(R4) 
SUBSTK(R4)*-(SP) 

SPiPO 

CSPNTB 

<f6,SP 

*2, P4 

R4,SSINPX 

3$ 

«FMT4*ERH 

&TSTLAB,- 

EPHEAD,-( 

ttFMT4*-<S 

«3,-<SP) 

SP*Rf 

CSPNTB 

#10* SP 

ttSEEKOP!RORWOP,OPFLAG JCLEAR SK f, RD OR WRT FLAG 

L.CS*R1 JGET COMMAND EXECUTED 

ttl77741,Rl ;STRIP ALL PUT FUNCTION CODE 

#6,R1 ;TEST IF SEEK OPERATION 



) 



;bump i 

; CHECK 

?loop ] 

AP*tfTSTLAP 

-P) 

P) 



JPRINT CALLING LOCATION 



MDEX 

IF ALL PRINTED 
F NOT ALL PRINTED V£T 
JPRINT ERROR HEADER 



#SEF,KpP,OPFLAG 

fcl2/Rl 

20$ 

<?POP.WOP,OPFLAG 

U2' R1 

22$ 

frROPWOP*OPFLAG 



;NO - SKIP 

?ELSE SET SEEK FLAH 

;TEST IF WRITE 

;NO - SKIP 

?SET RD OR WRT FLAG 

;TEST IF READ 

?NO - SKIP 

?SET RD OR WRT FLAG 



«FMTl,ttMOPEP*OPMSGS(Rl) /PRINT OPERATION 

OPMSGS(Rl)*-("" % 

ttMOPER # -CSP) 

frFMTl ' X ~* 



012701 
000436 



000010 
000004 



C00010 
000016 



ft3/-(5P) 

SP*RC 

CfiPNTP 

*t0,SP 

Si' M 

«PRSET*L.DA 

45 

<*16,R1 

9$ 



?CHECK IF GET STATUS 

;no - SKIP 

JTEST IF RESET INCLUDED 

JNO - SKIP 

JSET TO PRINT WITH RESET 



') 
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nmi 




007777 002426 



8$: 
9$: 



000006 

T10000 002426 



002426 15$: 



BIT 
BEO 
MOV 
MOV 
PIT 
BNE 
TST 
ASR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

E W T 

ADD 

BIT 

BEQ 

MOV 

PRINTR 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BR 

BIT 

BEO 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RIT 

BEQ 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 



ttfOMPOP # OPFLAG 

OPFLAG*R4 

»BIT00,R4 

6< 

(Pl) + 

R4 

5$ 

#FMT2,OPMSGSfRl) 

0PMSGS(R1)*-(SP) 

*FMT2*-<SPS 



;TEST IF ANY OTHER OPERATION 

?NO - S"IP 

?SET UP TO DETERMINE WHICH ONE 

?PRESET THE POINTER 

?CHECK THE "IT 

?IF SET - SKIP 

JRUMP POINTER 



FMT2*-(S 

id*" 



c$£ntb 

P6,SP 

ttMDR40/OPFLAG 

10$ 

*50,R1 

ttFMT2*OPMSGS(Rl] 

CSPNTR 

#6,SP 

'5$ 

SFFKOP/OPFLAG 
15$ 



JTEST IF 40 HEADER OPERATION 
;NO - SKIP 
JELSE PRINT IT 



JSKIP 

?TEST IF SEEK 

JNO - SKIP 



V 

l^s /iu • a'vir 

# E, MT13*£FPMWD*OLDCYL / #DIFWD*DESPTr*f*SGNWD / DESSGN,*HDWD,DESHD 

DFSHD*-(SP) 

tlHpWD,-(SP) 

DESSGN,-?SP) 

*SGNWD,-(SP i 

PFSDIF*-(SP 

ttPIFWD,-(SP 

OLDCYL*-(SP 

t?FRMWD*-(SP 

*FMT13*-(SP 

C«PNTP 

*24,SP 

#PORW0P/OPFLAG JTEST IF READ OR WRITE SET 

17$ i*10 ' SKIP 

i*FMT22,iiCYLWD,CURCYL,*HDyD,DESHD,ltSECWD,DESSEC 

DESSEC*-(SP> 

<*SECWD*-(SP) 

DESHD*-(SP) 

#HDWD*-(SP) 

CURCYL/-(SP) 

«CYLWD*-(SP) 

«FMT22/-(SP) 

«7,-<SP) 

SP*P0 

CSPNTB 
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8888* SSSttg 



C025ft4 




17$! 



ADO 
JSP 
MOV 
RTS 



£ 20 fcSP 
PC,CLPPARM 






+ /R4 



;CLEAR PARAM TABLE 
?RESTORE R4 



; REPORT 
J PRINTS 
RPTRES: MOV 
MOV 
MOV 
MOV 
MOV 

PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADO 
CMP 
BEO 
MOV 
CMP 
BNE 
MOV 
35S DEC 
BEQ 

PRINTP 
MOV 
VOV 
MOV 
MOV 
MOV 
EMT 
ADD 



REASON ROUTINE 

REASON^PORTION FOR ALL ERROR REPORTS. 

) STORE Pi 

; STORE R3 

JSTORE P4 

>££! START OF PARAM 

--MBER OF PARAM 

;PRINT NAME 




UK 

P*R0 



,R3 
.j,#MRSLT,( 

SP) 



ffFMTi.I f -(SP) 



if! 1 



#3 

SP**'- 
CJPNTB 
ttiO.SP 
(R1),#MNDRST 

«FMTll,R4 
(Rl)+,«MCYLOC 

&FMT12/P4 

6S 
P4 f tfRESE3,(Rl)+ 

«&# > 

»* 

SP,P0 
CSPNTB 



*10,SP 
R4,IPESE4 




?TEST IF MESSAGE IS NO DRV STATUS 
JVES -.SKIP REST OF REPORT 
5 K,^I5ET,FOR FORMAT 11 
;CHECK TF REPORTING CYLINDER LOC 
?NO - SKIP 

'IJjSE^CHANGE TO FORMA* 12 
?DEC PARAM COUNT 
?IF - EXIT 
JREPORT IS VALUE 



;REPORT SB VALUE 



;DEC PARAM COUNT 



\l' 



JREPORT CONDITION 



fRESTORE REGS 
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005046 
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$ P 883*33 

013746 002450 
"746 005622 

Mi mh 




00207 



000022 



i 



!PTREM 



JSP)+,R1 



SEO 0078 



JRETURN 



eEPOPT.PgmC^ R ADDR|SS T aP DEVICE UNOER TEST 

*JMj=»»B»S»DD,RLB»S,lfDRVN»M,<B,RLDRvi-l> 



CLP 

m* 

MOV 

MOV 
MOV 
MOV 

MOV 

EMT 

REPORT 
PRINTB 

981 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PPINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

RTS 




#BASADD 

Sfmt 

#5,- 
SP,R. 
C<PNTP 

RL11 REGISTERS 

?MOMD / -fsP) M ' #DAMy ' #BANAM ' #MPNAM ' ftCyLWD ^ HDWn 
|CYLw6,-(SP) 

1mpnam;-?sp) 

#RANAM,-?SP) 



CSPNTP 
#20, SP 

L! , MP^-?SP? 1 ' L " CS ' L ' nA/L,RA/L ' UP 




*6,-(5P 

SP-RC 

CSPWTP 

nie,sp 
r?^n'^ AB ?' T -cs J 

DESHD^-CSP) 

CnRCYL,-(SP) 

T.MP,-fSP) 

t.ba;-(spj 

T.DA/-(SP) 
T.CS<-(SPJ 
tfLAP2,-(SP) 
#FMT7,-(SP) 

nu*< m 

CSPNTP 
#22, SP 
PC 



T.DA,T.BA # T.MP,CURCYL,DESHD 



CLEAR PARAMETER BLOCK FOR REPORTING 



B$ 



002504 
000005 
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2S! 



MOV 
MOV 
CLR 
DEC 
BNE 
MOV 
MOV 
RTS 



MOV P5 # -(SP) 
|RFSPARM / Pl ;n; 

#RESPARM,Rl 
JSP)+,R5 



JSTORE R5 
ORE 



. .. , ADDRESS OF BLOCK 
?SET COUNT 
;CLEAR WORD 

;dec count 
jloop until 
;rsset pointer 
jrestore r5 



) 
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INTERFACE (PART 1) 
01 



10000$: 



20000 
011120 



002474 



002474 7$: 



002474 9$: 



TST 
BNE 
TST 

ll\ 

PPINTF 

CLR 

BISR 

m6v 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

GMANIL 

EMT 

PP 

.WORD 

.WORD 

.WORD 

.WORD 

TST 

BEG 

JSR 

JSR 

65$ 

BIT 

PNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

BIT 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

BIT 

BNE 

MOV 

ERRHRD 

TRAP 



PASNU" 
65$ 
>WIW 



Tl:: 



"IS 

65$ 



|MlSTST,ERHEAD 

#fmtopi,#opri, 

-(SP) 

RLppy+l,(SP) 



;CHFCK IF FIRST PASS 
JEXIT IF NO 
; ; So E - K EJf T M TEST L INTERVEN TION 
JLOAD EPR HEADER 
*0PRIA,«RASADD,RLBAS,SDRVNAM,<B,RLDRV+1> 



«drvnam;-(si 
6n!2r 

, - -A/-(SL 
^OPRl.-(SP) 



RLBAS,-(SP) 
J*BASADD,-(S. 
^0PP1A/-(SP) 



V 



»p : tgi-<sp, 
spCrO 

CSPNTF 

#20, SP 

OPUFF 

OPR002,OBUFF,l< 

CSGMAN 

10000$ 

OPUFF 

TSCODE 

OPR002 

1 

OPUFF 
2$ 

PC/TSTINT 
PC,GSTATC 



#COSTAT,T. 

7$ 

*MCOSTA,P3 

1C1.,,EPR3 

T«ERCODE 

1C1 

ERR3 

*BHSTAT,T.MP 

9$ 

«MBHSTA £ R3 



.MP 



EPP3 
fWLSTAT,T.MP 

#MWLSTA,R3 
t03.,,ERR3 
TSERCDDE 



JCLEAR FOR RESPONSE 



?test response ves 
jyfs - skip 

^initialize test 
;go get Status (no reset) 

jchec* if cover open set 

?YES - SKIP 

?SET NAME POINTER 



;test if brushes home 

?YES - SKIP 

JSF.T POINTER FOR BRUSH HO»"E ERROR 



;TEST IF WRITE LOCK SET 

/YES — SKIP 

?SET NAME POINTER 



# 



) 
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,{?{ mm amii 
mi mm mm 

242Q 023226 O05OC3 
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1A,1Q ***** 1 BASIC INTERFACE (PART 1) 



<3> 023244 

3J 023244 104001 



002502 



016464 



*TEST 1 

11$: 
15$: 

Bki. 



• WQPD 
.WORD 
TST 
BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

JSP 

65 S 



103 

ERR3 

T.STAT 

& 



,ERP7 

□ DE 
PC/ GST ATP 



104. //ERR 
TSERCDDE 

ERR7 



243 



CSETST 



JTEST IF STATE ZERO 

JYES - SKIP 

;SET STATE EXPECTED 



?DO DRIVE RESET 



ASSEMBLY ROUTIN 
CZRLCB.P11 2 



2437 

mi 

ml 

2442 
2443 

mi 

(i: 



023246 

mm 

023260 

l\\m 

023270 
023272 

mm 

02330" 



005737 

hhU 

005046 
153716 

km 



mi\- 



003062 
014656 
006225 



1 30A(1052) 



2455 

nil 




22-NQV- 



*TEST 

.SBTTL 

BGNTST 



002434 



10000$: 



002474 9$: 



16t20 PAGE 2-2 

BASIC INTERFACE (PART 2) 

2 BASIC INTERFACE (PART 2) 

JTEST 2 



SEQ 0082 



TST 

BNE 

TST 

BPL 

MOV 

PRINTF 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

vov 

EMT 
ADD 

CLP 

&P 

.WORD 
. WORD 
• WORD 
.WORD 

TST 
BEQ 
JSR 
JSR 
S5" 



[^^IST/ERHEAO JSET 
iFMfgPi;S0PR2,tt0PRlA, 



JSR 

m 



PASNUM 

65$ 

MISWIW 

5! 

-(SP) 

RLDRVU,(SP) 

#pRVNAM/-(SP) 

RLBAS/-?SP> 

*PASADD/-(SP) 

*0PP1A,-(SP) 

*OPR2 r -(SP) 

CSPHTF 
«20/SP 



T2: : 
JTEST IF PASS 

>]!iQ„- SKIP 

?TEST IF MANUAL INTERVENTION 

;no - skip 

1rror header 

lRASADD / RLBAS,8DRVNAM / <B / RLDRV+l> 



;REQUEST CLOSE 



OBUFF 

OPR0Q2 

C$GMAW 



[/ OBUFF, 1 



104001 



65$: 

HBJH, 



OBU 
OP" 

CW*.« 

10000$ 
OBUFF 



OBUFF 

PC,TSTINT 
PC/GSTATR 

#COSTAT,T.MP 

«MC0STA,R3 

IllftefiSi** 4 

TAT, T. MP 



JCOVER AND RESET WRITE LOCK 
JCLEAR FOR RESPONSE 
/NO 




JTEST IF RESPONSE YES 

'„„* -«.i TNTTIA LIZE TEST 
>GET STATUS WITH RESET 

JTEST _. 3 _, 

JYES - SKfP 

JSET NA^E MESSAGE POINTER 



IF COVER OPEN RESET 
- SKIP 



>vIs T - I SKIP TTB L ° CK RESET 
JSET NAME MESSAGE POINTER 



■I 
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T 3 HEA 5 

?TE§Ti 



003062 
C14656 



016446 
016464 




.SBTTL 
BGNTST 



H' 



OQ0Q2O 
000004 
000001 



4$: 
5$: 



10000$: 
2S: 



TST 

BUR 

TST 

BMI 

EXIT 

EMT 

.WORD 

JSP 

JSP 

w s 

PEQ 

PPINTF 

CLR 

BISR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

GMANIL 

F u T 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

TST 

BEQ 

PPINTF 

CLP 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

MOV 

MOV 

MOV 



PASNUM 

MISWIW 

5$ 
TST 

mm.. 

PC,TSTINT 
PCGSTATP 

T.STAT 
2* 



T3:s 

;TEST IF PASS 

JNO SKIP 

JTEST IF MANUAL INTERVENTION 

?YES - SKIP 



JlNITIALIZE TEST 
;GET STATUS 

?TEST l v STATE ZERO 



) 



?YES 

»FMTOPl # #OPP5r#OPRlA / »BASADn,RLRAS / »DRVNAM / <B r RLDRV«-l> ;REQUEST DRIVE BE 

RLDRV*1,(SP) 

#DRVNAM f -(SP) 

RLBAS/-(SP) 

ffPASADDz-fSP) 

&0PR1A,-(SP) 

ttOPP5jr-(SP) % 

ttFMTOPl<-(SP) 

«$"* 

CSPNTF 

J*20,SP 

OBUFF >, 

OPRQ02, OBUFF, 1, NO 

CSGMAN 

him* 

TSCODE 

OPR002 

OBUFF JTEST IF RESPONSE YES 

IS >NO - SKIP 

SFMTOPl,(tOPR3/#OPRlA,«BASADD,RLBAS / tDRVNAM / <B,RLDRV + l> 

RLDRV*1,(SP) 
"nRVNAMr-(SP) 



CLEAR FOR RESPONSE 



*PRVNAM,-(SP) 
RLBAS/-(SP) 
ttPASADD,-(SP) 
"0PR1A,-(SP) 
)PR3/-(SP) 
[MTOPl^-CSP) 

>0 



tfOPRlA 

^OPR" 

SFMTuri*- 

fc7,-(SP) 

SP,P0 

CSPNTF 

«20,SP 

#CYLUP,OPFLAG 



JSET CYCLE UP FLAG 



*1#P3 ;SET EXPECTED STATE VALUE 

iiNSTACHG,ERHEAD ?SET ERROR HEADER 
#30C.,R1 ;SET WAIT COUNT FOR 30 SEC 
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£5) 

2504 



mm 
mm 

023756 
023756 

mm 

mm 

023774 
^23774 
023776 
024000 
0240O2 
024002 
024QC4 
024006 
024012 

timi 

024024 
024034 

8 183* 

0240 4U 
"2404 



004737 016500 

024702 

CQ573I 002502 

001022 

005301 

001404 

012700 000001 

104026 

000764 

005037 0C4066 

000404 
104066 
000120 
007751 
000001 



mm 

014220 



0025*2 



000454 
002502 




01270C 000001 

WIS 



10001$! 



10$: 
11$: 



13$: 
14$: 



004000 002474 



JSR 

T365S 

TST 

BNE 

DEC 

BEQ 

WAITMS 

MOV 

EMT 

BP 

CLP 

GMANIL 

EMT 

BR 

-WORD 

.WORD 

.WORD 

.WORD 

TST 
BNE 
BR 

CMP 

BEQ 

ERPHPD 

TRAP 

.WOPD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

Mnv 

JSR 
T365$ 

CMP 

BEQ 

EPPHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

DEC 

PEQ 

WAITMS 

MOV 

E"T 

PP 

ERPHRD 

TRAP 

.WOPD 

.WORD 

BIT 



FC,GSTATC 

Iat T,T 

PI 

H 

ffl,R0 

C$WTM 

3$ 

OBUFF 

0PRG03, OBUFF, 

CfGMAN 

16001$ 

OPUFF 

TSCODE 

OPR003 

OPUFF 
11$ 

rLt.stat 

30?.,,ERR7 

TSEPCODE 

301 

EPR7 

TST 

EfSHJ.. 

PC,GSTATC 

R3, T.STAT 
2C$ 

302.ir/ERR7 
TSEPCODE 

EPR7 
TST 

L1C022-. 

Rl 

IV 

»l,po 

CSWTM 

3G3.,,EPR7 

TSEPCODE 

303 

ERP.7 

HSPPSTAT,T.MP 



?get status 

;test if state is still o 
;no - s«fIP 
JDSC WAIT COUNT 
JEXIT IF WAIT DONE 



1/NO 



CLEAR FOR RESPONSE 



;TEST IF RESPONSE YES 
?YES - REPORT 



;CMECf IF NOW STATE 1 
?YES - SKIP 



?SST WAIT FOR 30 SECONDS 
JSET EXPECTED STATE VALUE 
;GF.T STATUS 

JCHECK IF STATE 2 

;YES - SKIP 

;CHFCK IF NO CHANGE - YES 



?DEC WAIT COUNT 
;SKIP !=• 



?TEST IF SPINDLE TIMEOUT 
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HFAD LOADING 




006262 002434 



1QSS 
002434 20$: 



006262 
011172 



mm 

011105 
000010 



mm 

000010 
0000^1 



0C0454 
016500 

000010 002474 



m\ 



002474 



27$: 

2B$: 



BNE 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

MOV 

BIT 

BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

• WORD 
MOV 
JSP 
T365S 
BIT 
PEQ 
DEC 
PEQ 

WAITMS 
MOV 
EMT 

BR 

S8Pil PD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

• WORD 
MOV 
JSP 
T365S 
BIT 
BNE 
DEC 
PEQ 

WAITMS 
MOV 
EMT 

ERRHPD 

TRAP 

.WORD 

.WORD 

EXIT 




Li0022-. 

&MISTST/ERHEAD 

«STATE2,R4 

#MBHSTA,R3 

#PHSTAT,T.MP 

3C5.,,ERR5 
T5EPC0DE 

EPR5 
TST 

C5EXIT 
LJJJ022-. 

pc,'g§tatc 
#phstat,t.mp 




*PHSTAT,T.MP 
32$ 

I s 

#l f R0 
CSWTM 

307...ERR5 
f«ERCODE 

ERR5 
TST 



JYES - SKIP 

»SET ERROR HEADER 

;SET NAME MESSAGE POINTER 



? SET ERROP READER 
?SST CONDITION MESSAGE POINTER 
?SET NAME MESSAGE POINTER 
;TEST IF BRUSH HOME STILL SET 
JVES - SKIP 



?GET sfftTUS° UMT FGR 5 SECCMDS 

;TEST IF PRMSH HOME RESET 
JYES - SKIP 
;DEC WAIT COUNT 
;SKIP IF 7EP0 



?loop 



;SET WATT COUNT 30 SECONDS 
;GET STATUS 

;TEST^IF BRUSH HOME SET AGAIN 

>ELSE~DEC WAIT COUNT 
;SKIP IF 
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HEAD LOADING 



"02434 32$: 



002434 36$: 



002474 38$: 



002466 40$: 



002434 



42$: 



002502 



E"T 

.WOPD 

MOV 

MOV 

JSR 

T365$ 

CMP 

BEG 

ERRHRD 

TRAP 

• WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

MOV 

JSR 

T365S 

BIT 

BNE 

ERRHRD 

TRAP 

.WORD 

• WORD 

EXIT 

EMT 

.WORD 

BIT 

BNE 

MOV 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

BIT 

PNE 

MOV 

FRPHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

MOV 

JSR 

?§P 5$ 

BEQ 



CJEXIT 
L10022-. 

jjNSTACHG/ERHEAD 

Pc'gstatc 



vrj.,,5RR7 
$ERCODE 



CSEXIT 
U0022-. 



frMISTST/ERHEAD 
4STATE3^R4 
tfMHOSTA£«3 
PC,GSTATC 



*HOSTAT,T.MP 
3fl$ 

309.,,EPR5 
T5EPCCDE 

iih 

TST 
C*EXIT 

40$ 
#MVOLCK,R3 



RVERR,T.CS 




>RERR,R3 
Jii.# t ERR5 
TSERCODE 



ttN$TACHG,E 

#4,R3 

PCGSTATC 

P3/T.STAT 
40$ 



^S5T ER°QP HEADER 

\m Sf JfSI E0 STATE VALUE 



;CHECT IF STATE 3 
;yss - SKIP 



JSET ERRO" HEADER 

?SET CONDITION MESSAGE POINTER 

|?g| T - T ?K?P ADS ° UT S " 



JTEST IF VOLUME CHECK SET 
>SET NAME MESSAGE POINTER 



?yIs T - T skip TVE errop set 

J SET NAME MESSAGE POINTER 



}5?I C ! if,?"" 4 



) 
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SEQ 0087 




3Q0763 



mm 

000001 
0000O1 



12737 006225 

mi mm 
mm 

013272 



49$: 

50$: 



51$: 



55$ 
56$ 



002466 



024702 

02*722 
024702 
024702 
0247P2 



002434 60$: 



62$: 
T365S: 
ENDTST 
L10022: 



DEC 

PEQ 

WAITUS 

MOV 

FMT 

BR 

EPRHRP 

TRAP 

• WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

MOV 

JSR 

T365$ 

CMP 

BEQ 

DEC 

PEQ 

WAITUS 

MOV 

EMT 

FRRHRP 

TRAP 

.WORD 

.WORD 

EXIT 

FMT 

.WORD 

MOV 

JSR 

T365$ 

BIT 

BNF 

DEC 

BEQ 

WAITUS 

MOV 

EMT 

BR 

MOV 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 



II s 



*1,R0 
CSWTU 

312.,,ERR7 

T$ERCODE 

312 

ERR7 

TST 

CSEXIT 

S5,R3 
PCGSTATC 

R3#T.STAT 

55$ 

Rl 

5JS 

#l f R0 
C$WTH 

3i3.,,ERP7 

t$ercode 

3i3 

EPR7 

TST 

C$EXIT 

L10022-. 

#80., PI 

PC,GSTATC 

*0RDYMSK,T.CS 

m* 

»1,P0 

CSWTU 

56$ 

«uiSTST,EPHEAO 

?*STATE5,R4 

«MDRDY,P3 

314<-,ERR5 

T5ERCODE 

314 

ERP5 



JDEC WAIT COUNT 
;SKIP IF 



;SET WAIT COUNT FOR 30 MS 
?SET EXPECTED STATE VALUE 
;GET STATUS 

;CHECK IF STATE 5 
JYES - SKIP 
JDEC WAIT COUNT 
;ELSE SKIP 



;SET WAIT FOR 8 MS 
?GET STATUS 

JCHECK IF DRIVE REAOY 
JYES - SKIP 
JDEC COUNT 
JSKTP IF 



;SET ERROR HEADER 

;SET CONDITION MESSAGE POINTER 

;SET NAME MESSAGE POINTER 



) 



) 
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005737 003062 
100402 



C14656 




30A(1052) 22-NQV-78 
*TEST 4 

am * TEST 



16:20 PAGE 2-8 
HEAD UNLOADING 



HEAD UNLOADING 
JTEST04 



8$: 



10$: 

BGNSUB 



002466 



1$: 



10000$: 



002426 3$: 
4$: 



TST 
RNE 
TST 
BMI 
EXIT TS' 

EMT 

.WORD 



CLR 

BISR 

MOV 

MOV 

MOV 

WOV 

MOV 

«OV 

MOV 



PASNUM 

8$ 

MISWIW 

10S 

'mm. 



T4: 



JTEST IF FIRST PASS 

?NO - SKIP 

;TEST IF MANUAL INTERVENTION 

JYES - SKIP 



FMT 

MCV 

JSR 

JSP 

T465$ 

BIT 

BNE 

PRINTF 

CLP 

BTSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

Emt 

ADD 

CLR 

GMANIL 

EMT 

RP 

.WORD 

.WORD 

.WORD 

.WORD 

TST 
PEQ 



C$BSUP 

££ S I A £tJ£c ERHEAD ? S£ T ERROR HEADER 
PC,TSTINT ;INITIALIZE TEST 

PC;GSTATR ?GET STATUS 



T4.i: 



«DRDYMSK / T.CS 

3$ 



JCHECK 



IF DRIVE READY 
3S JYES - SKIP 

tfFMT0Pl,*OPP6,HOPRlA,»RASAD0,RLBAS,«DRVNAM,<B,RLDPV+l> 

RLDPV+1,(SP) 
tfrRVNAM,-(SP) 

rlras,-{sp> 
#rasadd,-(sp) 



ttOepiA,-(SP 
20PR6.-(SP> 
fiFMTOPl^-CSP) 

spSrc 

C$PNTF 

«20,SP 

ORUFF ;CLEAR *CR RESPONSE 

OPR002,OBUFF / 1 / NO 

CSGMAN 

lOOCGS 

ORUFF 

T$CDDE 

OPRC0 2 



ORUFF 
1$ 



;TST RESPONSE YES 
JNO - SKIP 



BTS #ULOAD # OPFLAG JSET UNLOAD OPERATION 
PPINTF »FMTOPl,#OPR3 / #ptpiA # «BAsJDDi.RLBSsi*D 



-<SP) 
RLDPV+1,(SP) 
ttDRVNAM.-CSP) 
RLRAS < --(SP£ 



DRVNAM,<R / RLDPV+1> 



JtPASADD,-(SP 
#0PR1»,-(SP) 



P) 
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QtMjjj 



000001 



30HU052) 22-NOV-7B 
*TEST 4 

MOV 
EMT 

m 

MOV 
MQV 

5$S JSR 

T465$ 
CMP 
BFQ 
002502 CMP 

BNE 

8$: DEC 
BNE 
DEC 
BEQ 
MOV 

6$: WgJTUS 

EMT 

7S: TLP 

GMANIL 

EMT 

PR 

.WORD 

.WORD 

.WORD 

looois. - V0M 

TST 
BEG 

9$: ERRHRD 
TRAP 
.WORD 
.WORD 
EXIT 
EMT 
.WORD 

11$: MOV 
MOV 

12$: JSR 

T465S 

CMF 

BEQ 

DEC 

BEQ 

WAITUS 

MOV 

EMT 

BP 

16$: ERRHRD 
TRAP 
.WORD 
.WORD 
EXIT 



16:20 PAGE 2-9 
HEAD UNLOADING 



./R4 



SP,R0 
CSfNTF 

\m 

PC/GSTATC 

R3,T.STAT 

g5, T.STAT 

9$ 

R4 

!! 

emu 

QRUFF 
OPR0C3, OBUFF 
C«!GMAN 

T$CODE 
OPR003 
1 

OPUFF 
4$ 

t$erc*6de 

401 

ERR7 

SUB 

CSEXIT 

LI0024-. 

#7 C R3 

#3000, ,R1 

PC,GSTATC 

R3, T.STAT 

#i,po 

C$WTU 

402.,,ERP7 
f$EPCODE 

Ml 

SUB 



>SET EXPECTED STATE VALUE 
;SET SECOND LEVEL COUNT 
JSET WAIT COUNT FOR 30 SECONDS 
JGET STATUS 

;CHECK IF STATE 6 
JYES - SKIP 
>TEST IF STATE 5 
>H9--, R S p P*T WRONG STATE 

»ifp 2 !* w\ coont 

J5H? m* 3s 2ND LEVEL 



m ? E S«I*!ii s fflfcs??M 



UNT 



,i,n6 



CLEAR FOR RESPONSE 



JTEST IF RESPONSE YES 

?N0 - S*IP 

JELSE REPORT STATE CHANGE WRONG 



?set expected state value 
jset count for 300ms 
;get status 



?CHECf IF STATE 7 
?YES - SKIP 

;dec wait count 
;sktp if c 



jreport wrong state change 
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002440 



1B$J 

20$: 



22$: 



24S: 
T465S: 

ENDSUP 
L10024: 

26$: 



104001 



10000$: 
29$: 

mm, 



EMT 

.WORD 

CLR 

MOV 

JSR 

T465S 

TST 

BEQ 

DEC 

BEQ 

WAITMS 

MOV 

EMT 

BP 

ERRHRD 

.WORD 
.WORD 

MOV 



16:20 PAGE 2-10 
HEAD UNLOADING 

SEX 



8WB" 

#fi00.,Rl 
PC,GSTATC 

T.STAT 

ii: 
8i« 

403.,,ERR7 
TSEPCODE 

ERR7 

«2/FRPSWI 



SEQ 0090 



VALUE 

60 SECONDS 



?SET EXPECTED STATE 

;set wait count for 
>c-et status 

;chec* tf state o 

?VES - SKIP 

^kVi-fV "" 1 



?REPORT WRONG STATE CHANGE 



?INIT ERROR SWITCH 



PPINTF 
CLR 
BISR 
mov 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
CLP 
GMANIL 

ir 

.WORD 
.WORD 
• WORD 
.WORD 

TST 
BEQ 



SWBfc. 



(SP) 

RLDRV+1,(SP) 
"*" (SP) 



#OPP6 r ttOPRlA / «BASADn / RLBAS / «DRVNAM,<p,RLDPV*l> REQUEST CYCLE 



&DRVNAM 

RLBAS £ -(si'2 
#BASa6d,-(SP) 
«0PP1A / -(SP) 
#0PR6,-(SP) 
•— TOhJ-(SP) 



flFMTOPU- 
«7,-(SP) 

spSro 

CSPNTF 

h&ll.m*r r ,i.»h a -* M FGR RESP0,,SE 

OBUFF 

TSCODE 

OPP002 



OBUFF 
26$ 



JTEST RESPONSE YES 
>NO - SKIP 



ASSEMBLY ROUTINES 
CZRLCB.P11 23-OCT-78 




MftCVll 301(1052) 22-NOV-78 
14:39 *TEST 5 



16:20 PAGE 2-11 
DRIVE SELECT 



.SBTTL 
BGNTST 



mm oo244 ° 

000004 014656 



006362 002434 

mm 



010432 
010422 

002455 
010244 
012067 
000005 



10000S: 
3$: 



m 



MOV 

TST 

BNE 

BIT 

BEO 

PRINTF 

CLR 

m« 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

FMT 

ADD 

CLR 

GMANIL 

EMT 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

TST 

BEQ 

MOV 

JSR 

JSR 

T504S 

MOV 

MOV 

MOV 

ADD 

CMP 

BNE 

CLR 

MOV 

PPINTF 

MOV 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



DRIVE SELECT 
JTESTQ5 



«2,ERRS 
PASNUM 



EVTO' 

PPS|LT/MISWIW 

EXTOf 



;SET FOR NO ERROR RETURN 
?TEST IF FIRST PASS 
?NO - SKIP 

;TEST IF SELECT TESTS 
;NO - SKIP 



#FMTOPl,#OPR7,ffOPRlA / #BASADD,RLBAS / #DRVNAM,<B,RLDRV + l> ;REQUEST REMOVE ft 

-(SP) . 

RLDPVti/(SP) 



#DRVNAM,-(S 
RLBAS,-(SP) v 
itPASADD,-(SP) 
ttOPRlA/-(SP) 
SoPR7,-(SP) 



-(SP) 



KFMTOP1, 

SP#R0 
CSPNTF 

m*p ,, 

OPR002, OBUFF, 1, NO 

C5GMAN 

1000CS 

OBUFF 

TSCODE 

0PR002 

1 



CLEAR FOR RESPONSE 



OBUFF 

«T05ERR,ERHEAD 

PC/TSTINT 

PC,GSTATC 



RLDRV # TEMPO 
RLDRV, Rl 

#46o e Rl 

?20o6,Rl 

45 

Rl 



?TEST RESPONSE YES 

;NO - SKIP 

;SET ERROR HEADER MESSAGE 

JINITI 

JDO SELECT AND 

;STORE ORIGINAL DRIVE 
;PUT IT IN Rl_ 



n »feHSHH- 



;SET COUNT FOR NUMBER OF PLUGS 

JBUMP TO NEXT DRIVE 

;CHECK IF TO LARGE 

;NO - SKIP 

?ELSE CLEAR TO DRIVE 
Rl, RLDRV JPUT IT BACK IN RLDRV 

|iFMTOP3 / #OPRfl / <B / RLDRV*l> # #OPRlB / «UNDTST 
iH!NDTST,-(SP) 
tfOPRlB / -(SP) 

RLDRV+1,(SP) 
#OPRB,-(SP) 



|PHT0|3 t -( SP) 
SP,R0 



sp5" 

CSPNTF 



#14, SP 



;INSERT PLUG REQUEST 
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30A(1052) 22-NOV-78 
♦TEST 5 



005737 
""1751 



1G4QC1 



002440 60$: 



'8o s !IS 



K 



002454 



504$: 



10000$! 



EXTC5: 
ENDTST 
L10025: 



CLR 
GMANIL 

EMT 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

TST 

BEQ 



16:20 PAGE 2-12 

drive select 
8p B r U o F o F 2,obuff,i,n6 CLEAR for response 

C$GMAN 



EMT 
JSR 



EMT 
DEC 
BNE 
MOV 

PPINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

GMANIL 

EMT 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

TST 
BEQ 



CSBSUB 
PC/GSTATC 

#2/ERPSWI 



;TEST RESPONSE YES 
;no - SKIP 

T5.1: 

*GET STATUS - REPORT ANY ERROR 
;INIT ERROR SWITCH 



CSESUB 
R4 

TEMPO/ 



RLDRV 



?DEC COUNT 

?kPQP IF NQI_ZERO_ 



;ELSE RESTORE RLDRV 



#PMTl,#OPR8,#OPR9 




0°pfeoBUFF,l,N6 CLEAR FGR RESP ° NSE 

CSGMAN 

10000$ 

OBUFF 

TSCODE 

OPR002 



OBUFF 
4$ 



;test response yes 
;no - skip 



FMT 



ASSEMBLY ROUTIN! 
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PAGL 
VE SEL 



>TEST06 
PASNUM 

B5rselt,miswiw 

«T 

U0027-. 

li s ii?h? RHEAD 

ETNM,R3 
UNIT/*! 




&\\ 



DRIVE S.ELECT TEST 



ICHI 

881 

>YE! 



K IF FIRST PASS 
SKIP 



T6u 



CK IF TEST DRIVE SELECT 
- SKIP 



JSET ERROR I 
"!AM 



'Hffi 8 - 

!ET ■' 



LI7.E TEST 

,--- m _„. NUMBER 

JTEST IF MORE THAN 1 



;no 

;BUMP 

;check 
;no - 
;ELSE 



UNIT 



IF 



AMETER SET NUMBER 
PAST VALID PARAMETER TABLE 

AR TO POINT TO ENTRY 



;SKIP IF NOT AVAILABLE 



2785 026 

m m. 

(8) 026 _ 

(7) 026312 

2794 26360 

2795 026364 



L.DA,PLDA(R2) 
L.CS,RLCS(R2) 

J*3,R0 
CSWTM 
DONE 

NYERR,T.CS 
F'MTgcftOPRlO 

ASM* 



_CS 

CS 

"DRSET,L.DA 



;PUT POINT 
SCHECK IF 
>N0 - SKIP 
;CLEAR DONE FLAG 
JLOAD GET STATUS 



R INTO R4 

AME CONTROLLER 



; INSERT DRIVE 
"ET 



JSET UP TO CLEAR DRIVE 



;LOAD DA REG 
;LOAD CS REG 
;WAIT 300 MS 



?TEST IF INTERRUPT 

;NO - SKIP 

?TEST IF ANY ERROR SET 

>NO - GO TEST 

?ELSE CHECK NEXT DRIVE 

;REPORT CAN'T FIND 2ND DRIVE 



;STORE NEW ADDRESS 
;ASK FOR PLUG CHANGE 
JSEI °.B TV E UNDER TEST 

ISEZ*3 E VaA D SBfiH«. to 3 

JTEST IF DRIVE NUMBER 3 
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000400 




30AU052) 22-NOV-78 

♦TEST 6 



16:20 PAGE 2-14 

DRIVE SELECT TEST 



21$: 



100005: 



BNE 
CLR 
ADD 
CMP 

m 

MOV 

m m 

BISB 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

m 

GMANIL 

EMT 
BR 

'word 

.WORD 
.WORD 



8$: 



456 
462 
004 



000000 



TST 
BEQ 

MOV 



FMT 

MOV 

MOV 

WAITMS 

MOV 

EMT 

BIS 

MOV 

MOV 

CLP 

MOV 

WAITUS 

MOV 

EMT 

TST 

BNE 

JSR 

MOV 

BEQ 

ERRHRD 

TRAP 

-.3888 



21$ 
R5 

If 

|CRDYMSFf*R 



#CRDYMSFf/R5 } 
R5#RLCS(R2) ? 
#FfiTOP2,#8pRa,<p; 



TEMPl+l,<SP} 

Ifmto?' 



;nq - sfrip 

»|pSE SET TO DRIVE NUMBER 
>BUMP TO NEKT ADDRESS 
;YeI S E im N ^5 ADDRESS? 

nk E ?all ?s 0NT re R g 0LLER mov BIT 

RLnRV+l>,#OPRlB,<B,TEMPl+l> 



SEQ 0094 



-CSP) 
RLDRV+1,(SP) 

r-<SP) 



FMT0P2#- 



(SP) 



aw , 

ml* 



CLEAR FOR RESPONSE 



T$CO 
OPRO 

OBUFF 
??0.,R4 

CSBSUB 

RIDRV.L.CS 

L.CS,RLCSR(R2) 

IlOl^PO 
CSWTM 

#gtstat,l.cs 
IgetstaLl.da 

C.DA # RLDA(R2) 
L.CS,RLCSR(R2) 

w 

PCjWAITIN 
!P)+#R3 



|5§ S I s r ?i? ESP0NSE YES 

;set COUNT 



;set UP 
;do it 



T6.1: 

TO SELECT MULTIPLE DRIVES 



JSP 

In 



gyi./GSTERl # ERRl 
TSERCODE 

GSTER1 



;SET GET STATUS 



;D0 GET STATUS 
;«AIT FOR INTERRUPT 

J?eT? JM"""""" 
mil FDR TIMEOUT 
HORROR POINTER 
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005737 
001753 



305(1052) 2 a 

*TE§T 



12$: 



T 



DRIVE SELECT TEST 



mn 



000006 
004066 



60S: 

ENDSUB 
L10030: 

15$: 



ioooos: 



LCLEXT: 



• WUKU 

EXIT 

EMT 

.WORD 

WAITMS 

MOV 

EMT 

JSP 

60S 

PIT 

BNE 

NOV 



.WORD 
.WORD 
EXIT 



MOV 
DEC 
BNE 
MOV 



EMT 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLP 

GMANIL 

EMT 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

TST 
BEQ 



Ir66§B R3 



ERRl 
SUB 

CSEXIT 
L10030-. 

ILpo 

CSWTM 

pc;gstat 

ttDSESTAT/T.MP 
PMDSERR.R3 

«:.. "" 

602 

ERR3 

S"B 

EiWH-. 

R5,PLCS(R2) 

R4 



#2,ERRSWI 
CSESUB 

spSpo 
cspntf 

ObGfF 

OPR002/0 

CSGMAN 

ldOOOS 

OBUFF 

TSCODE 

OPP002 

1 

ORUFF 
15$ 



;WAIT FOR DSE TO SET 

?GET STATUS 

JTEST IF DRIVE SELECT ERROR SET 

* YES ** SKIP 

?SET NAME MESSAGE POINTER 



;LOAD IN DIFFERENT ADDRESS 

?OEC COUNT 

;LOOP IF NOT ZERO 

;INIT ERROR SWITCH 



;request plug change 



F,1,n6 



clear for response 



;test response yes 
;no - skip 



assembly ROUTINE 
CZRLCB.Pll 2* 



S MACY11 
-OCT-78 14:39 



30A(1052) 22-NQV-78 
*TEST 7 



16:20 PAGE 2-16 
INITIAL STATE 




.SBTTL 
BGNTST 



3$: 



5S: 



7S: 

9$: 



10$: 



001000 



13$: 



MOV 

JSP 

WAITUS 

MOV 

FMT 

JSR 

65$ 

BIT 

BNE 

MOV 

BR 

MOV 

CMP 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

MOV 

BR 

BIT 

BNE 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

TST 

BPL 

TST 

BNE 

BIT 

BEQ 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

Ewf 

.WORD 

BIT 



INITIAL STATE 



;test 

#initst,ephead 
pc,tstint 

#I61,po 

CSWTU 
PC/GSTATC 

#PRDYMSK,T.CS 
3< 

SVDRDY,R3 
9$ 

#S,P3 

R3,T.STAT 

701.,,ERR7 

TSERCODE 

701 

ERR7 

TST 

CSEXIT 

rUHr 

ftHOSTAT/Rl 
#MHOSTA,R3 
«PHSTAT,R1 

TSERCODE 

EPR3 

TST 

CSEXIT 

L10031-. 

wiSWIW 

16$ 

PASNUM 

16$ 

Shsstat,ri 

13$ 

#MHSTA,R3 

ttCCYLUP.R4 

t$er66de 

703 

EPR4 

TST 

amu. 

*VCSTAT,R1 



?SET ERROR HEADER 

miT 1 «»"»"" TE " 

;GET STATUS 

JCHECK IF DRIVE READY 

JYES-SKIP 

JSET NAME MESSAGE POINTER 

?GO REPORT 

?SET EXPECTED STATE VALUE 

;CHECF IF STATE OK 

JYES-SKIP 

;ELSE REPORT STATE ERROR 



?EXIT 



>GET MP RFG 

;CHECK HEADS OUT 

JVES-SKIP 

?SET NAME MESSAGE PTR 

;go REPORT 

?CHECK BRUSH HOME SET 

J YE S— SKIP 

;SET NAME MESSAGE PTR 

JREPORT ERROR 



JEXIT 



;TEST IP MANUAL INTERVENTION RUN 
?CHECK IF FIRST PASS 

;no-skip 

jelse check hd selected 

/YES—SKIP 

;SET NAME MESSAGE PTR 
;SET CONDITION POINTER 
JREPORT ERROR 



?EXIT 

JCHECK VOL CHECK SET 



ASSEMBLY R0UTIN 
CZRtCB.Pll 2 



:ocr-78 nai 1 




30A(1052) 22-NQV-78 
*TEST 7 



§i «ww 



16:20 PAGE 2-17 
INITIAL STATE 



002466 15$! 



16$: 



17$: 
18$: 



19$: 



Eo? p?i 



BIT 

m 

BR 

BIT 

BEQ 

MOV 

ERRHRD 

TRAP 

•m 

BIC 

TST 

ERRHRD 

TRAP 

.WORD 

E?f?? D 

EMT 

.WORD 

MOV 

BIC 

TST 

BNE 



OLCK,R3 
VERR/T.CS 
MDRERR,R3 
WLSTAT,R1 

jmwlsta,r3 

705.,,ERR2 
TSERCODE 

7 Ep2 
#21177,R1 

7Q4.,,ERR6 
TSERCODE 

EfHil-. 

|j[5h?7,Ri 

18$ 



SEQ 0097 



!ZE8i a IH 

mk s m 



..NAME MESSAGE PTR 
IRT 
"VE ERROR SET 



^s-K„K5i- N * M E MESSAGE PTP 
JGQ REPORT 
JCHECIT WRITE 



«si,-?H-.s"*A»,.k 0CK STATUS 

>SKIP IF RESET 

;ELSE SET NAME MESSAGE PTR 



;CLEAR STAUS EXCEPT FOR ERROR BITS 
} CHECK IF ANY ERROR SET 

LSE REPORT ALL ERRORS 



> NO- 
VELS 



JEXIT 



;CLEAR ALL BUT ERROR BITS 
;TEST IF ANY ERROR SET 
;YES-SKIP TO REPORT 



104001 



CSETST 



ASSEMBLY ROUTINES 
CZRLCB.PH 23-OCT-78 







21 2737 

004737 



004737 
02 73 64 



m ill W 



MACYll 
14:39 



30A(1052)_22-NQV-78 



*TEST 



104001 



006347 
016446 

016464 

C14656 

003062 

000100 




002434 



002474 



16:20 PAGE 2-18 
INITIAL STATE 



am 



6 4 ||: 

ami* 



*TEST 8 



MOV 
JSR 

JSR 
65$ 
TST 
BPL 

TST 

BNE 

w* 

BEQ 

MOV 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 



INITIAL RESET STATE 



5I N II§T r ERHEAD 
PCrTSTINT 

PC / GSTATR 

MISWIW 

PASNUM 

#HSSTAT,T.MP 



TB: 



MHSTA,P3 



BOl./^ER 
TSERCODE 
801 
ERR4 



INITIALIZE TEST 
;GET STATUS WITH RESET 
•N0^KIP F MAN IN TERVENTION WAS RUN 

JSBSwF lST PASS 

5?E H I"s K KI H P D SELECT STILL ° 

{if? ?fiH-ras3Asi_MB 

;report e 



C$ETST 



ASSEMBLY ROUTINES MACVll 3CA(1052) 22-N0V-78 

CZRLCB.P11 23-QCT-78 14:39 *TEST 6 



16:20 PAGE 2-19 

INITIAL RESET STATE 




•SBTTL 
RGNTST 



006375 002434 
002524 



000001 002466 



002466 



7$: 



000001 



104443 
001607 



MOV 

MOV 

CLP 

CLP 

CLR 

CLR 

JSR 

JSR 

65$ 

JSR 

MOV 

JSR 

65$ 

MOV 

MOV 

JSR 

65$ 

BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

JSR 

65$ 

MOV 

CMP 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

DEC 

BEQ 

WAITUS 

MOV 

EMT 

ERRHRD 

TRAP 

.WORD 



DRIVE READY 
JTEST 9 



09EPR/ERHEAD 
EWCYL,R1 




KDRPYMSK,T.CS 

9$1.,,ERR4 

TSERCDDE 

701 




»81.,R1 
PC/CSTAT 

T.§TAT,R3 
2?2.^ERR7 



S2 



JRCDDE 



ERR7 
TST 

ami-. 

#MDRDV-R3 



BIT #DRPYMSK,T.CS 
BNE 12$ 
DEC RI 



U,P0 
CSWTU 



9ft3.i-i.ERR 

TJERCODE 

903 



;SET ERROR HEADER 

?GET POINTER TO DESIRED LOG 

KLEAR NEW CYL 

;CLEAR CURRENT CYL 

; DIFFERENCE 

7 ^INITIALIZE TEST 

;GET STATUS WITH RESET 

JPOSITION HEAD SELECTED BIT 
;ST0RE AS DESIRED HEAD 
;EXECUTE SIMPLE SEEK 

;SET NAME MESSAGE PTR 
;SET CONDITION POINTER 
JGET STATUS 

STEST READY SET 

JNO-SKIP 

;REPORT READY ERROR 



?EXIT 



) 



>SET WAIT 
;GET STATU 



?CHECT STATE IS 

;yes-skip 

?ELSE REPORT 



;CHECK READY SET 

JYES-SKIP 

;ELSE DEC WAIT COUNT 

?SKIP IF 



?REPORT READY ERROR 



^ 



ASSEMBLY ROUTINES 
CZRLCB.P11 



•0CT-7B 




MJCY^l 30A(1052) at 2|-N§V-78 



011044 
020530 
002534 

002534 



17$: 



.WORD 
EXIT 
EMT 
.WORD 

TST 

BPL 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

JSR 

CMP 

PEQ 

TST 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

IBP 

.WORD 

ERRHRD 

TRAP 

.WORD 

.WORD 



16:20 PAGE 2-20 
DRIVE READY 

ERR5 
TST 

CSEXIT 
L10033-. 



T.CS 

15$. 

904.//ERR6 

T^ERCODE 

ERR6 
TST 

mm.. 

#MHSTA,R3 
PC/POSHSB 
R5#DESHD 

DESHD 

905.c*ERR3 

TSERCODE 

905 

ERR3 

CSEXIT 
L10C33-. 

9Q6.,,ERR2 

ERR2 



;test if any error 

JNO-SKIP 



?SET NAME MESSAGE PTR 

POSITION HEAD SELECT BIT FOR TEST 

;CHECK IF CORRECT HEAD SELECTED 



JYES-SKIP 
;ELSE TEST IF 1 DE 
JNO-REPORT SB 
;ELSE REPORT SB 1 



027664 
027664 



104001 



£5g£MBLV ROUTINES 
CZRLCB.P11 



MACY11 
23-OCT-78 14139 



306(1052) 22-N0V-78 
*TEST 10 




29 03005 

i m 

i) ma 



16:20 x 

SEEK SIGN SWITCH 



PAGE 2-21 
" ""' "WIT 



ienn 



nm 



002466 



m 



7S: 



*TEST 10 

MQV 
MOV 
CLR 



SEQ 0101 



|J SjgM SWITCH 



'W 



000001 



CLR 
CLP 
BIS 
JSR 



EMT 
JSR 
JSR 
60S 
JSR 

6 £$ 

MOV 

MOV 

JSR 

60S 

BIT 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 



MOV 

JSR 

60S 

MOV 

CMP 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

• WORD 

MOV 

BIT 

RNE 

US 

WAITUS 
MOV 

EMT 



iroKE:H mo 

M. 

|PlTO e (Rl 
PC,POSHSB 
R5,(R1)+ 



NEWCY 

| I 

PITO, 



V* 



CSBSUB 

PC,TSTINT 

PC,GSTATR 

PC/SIMSEK 

#MDRDY/R3 
SCDRDY.R4 
PC,GSTAT 

#DRDYMSK # T.CS 

1001.,,ERP4 

IJ8! cfifa 

ERR4 

snp 

llUll.. 

#81.,R1 
PC,G5TAT 

tf5/R3 
R3/T.STAT 

1002./,ERR7 
""ERCODE 



m 



SUB 
C'~ 
L 



Mlh 



ttMDRDY 4 R3 
$DRDYM3K,T.CS 



>SET ERROR HEADER 

?CLEAR NEW CYL 
;CLEAR CURRENT CYLINDER 
JCLEAR DIFFERENCE 
;SET FOR SIGN OF 1 
;GET SELECTED HEAD 
>SET AS DESIRED HEAD 



T10SS 



TlO.l: 



;GET STATUS 

?DO SEEK 

?SET NAME MESSAGE PTR 
>SET CONDITION MESSAGE PTR 
;GET STATUS 

?CHECK READY RESET 

JYES-SKIP 

;REPORT READY ERROR 



>EXIT SUBTEST 



?SET WAIT COUNT 
5GET STATUS 

>SET EXPECTED STATE 

>CHECK STATE IS 5 

;YES-SKIP 

?REPORT STATE ERROR 



;exit 



;SET NAME MESSAGE PTR 
;CHECK REUDY SET 

>yes-skip 

;do WAIT COUNT 

JSKIP IF 



emu 



ASSEMBLY ROUTINES 
CZRLCB.PU 23-OCT-78 



030066 000747 



MACY11 
14839 



002466 




30AU052) 22-NOV-78 
*TEST 10 



BR 

ERRHRD 
TRAP 

• WORD 
.WORD 
EXIT 
EMT 

• WORD 
TST 

ERRHRD 

WORD 
"RD 



12S! 



15$» 



17$: 



UP 



104001 



0034t 



V 

ERRHRD 
TR-~ 

• WL... 

• WOR1 
EXIT 
EMT 
.WORD 
ERRHRD 
TRAP 
.WORD 
.WORD 



EMT 
TST 
BEQ 
CLR 
JMP 



:2C PAGE 2-22 
SEEK SIGN SWITCH 

5$ 

1003 



SEQ 0102 



.,,ERR5 
CODE 



ERRS 
SUB 

mm.. 

T.CS 

ERR6 
SUB 

itmi.. 

R5*DESHD 



0& 

8 m- 



5.#,ERR3 
RC&DE 



mm-. 

1006. £ .ER 
T5ERC0DE 
1006 



cfEsyp 
dIssgn 



DESSGN 
T104$ 



C$ETST 



?REPORT READY ERROR 



JTEST IP ANY OTHER ERROR 

JNO-SKIP 

JREPORT ALL ERRORS 



;exit 



SIP « 

JCHECK 
>YES - 

;REPORT 



ME MESSAGE PTR 

rair BIT 

P 

" 1 



; REPORT SW 



JCHECK IF BOTH SIGN USED 

t j & 5— SKIP 

;SET FOR SIGN OF 

>DO TEST AGAIN 



ASSEMBLY ROUTIN 
CZRLCB.P11 2 



ES 
3-OCT-78 



MftCYll 305(1052) 22-NOV-78 16:20 PAGE 2-23 
14:39 *TEST 10 SEEK SIGN SWITCH 



SEQ 0103 




000010 014656 

003062 

002454 002432 

030540 



000062 
002430 



.SBTTL 
BGNTST 



IS: 



002454 002432 2S: 



BGNSUP 

3S: 



454 002456 
104 002456 
013 002462 



HEAD ALIGNMENT SUPPORT 
JTEST 11 



BIT 

BEO 

TST 

BNE 

CMP 

BNE 

JMP 

EXIT 

EMT 

.WORD 

MOV 

PRINTF 

CLR 

BTSB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



EMT 

JSR 

CLP 

MOV 

BIS 

MOV 

MOV 

MOV 

WAITMS 

MOV 

E«T 

TST 

BEO 



Til:: 



PASNUM 



#HDALTGN/MISWIW ;CHECK IF RUN HEAD ALIGNMENT 
JNO-EXIT 
JTEST IF PASS 
JNO-EXIT 

;test if HEAD ALIGN DONE THIS DRIVE 
>NQ - SKIP 
;GQ CHECK WRITE LOCK 



1$ 

RLDRV,HADONE 

?ll5S 

TST 

C"~ 

rLdrV;hadone 



:sexit 
ildrv/hac 

#FMT5,#RAS 
RLDRV+1,(S 



;SET HEAD ALIGN DONE FLAG 



;TYPE INSTRUCTIONS 



#FMT5,#BASADD / RLBAS / #DRVNAM / <B / RLDRV+1> 

.,(SP) 

#DRVNAM,-(SP) 
RLBAS.-(SP) % 
#BASADD,-(SP) 

SP,P0 

CSPNTF 

«14,SP 

#fmt9,#hamesi 

Ifcrf sp > 

CSPNTF 

H,sp 

SFMT9,ttHAMES2 
#HAMES2,-(SP) 

i!L M - T ?5P5 SP> 

sp;ro 

CSPNTF 
#6/SP 



CSBSUB 

PC,TSTINT 

DONE 

RLDRV e L.CS 

#GTSTAT,L.CS 

«GETSTAT!DRSET,L.OA 

L.DA/PLDA(R2) 

L.CS,RLCSR(R2) 

#50. 

#5C.,R0 

CSWTM 

DONE ;CHECK IF DONE 

3$ JNO-GO CLR CONTROLLER 



JlNITIALIZE TEST 
;CLEAR DONE 
;SET UP FOR GET STATUS 



JDO GET STATUS 
;WAIT FOR INTERRUPT 



ASSEMBLY ROUTIN 
CZRLCB.Pll 2 




30A(1052) 22-NOV-78 16:20 PAGE 2-24 

♦TEST 11 HEAD ALIGNMENT SUPPORT 



i: 



M 




mm 

002456 

mm 



16446 
16464 



020000 002474 



8 m urn n 

3) 030600 

t\ mm 

11 030610 

12 030614 
"" 030614 

818fii 

030622 
030624 
03.0626 
030630 
03C630 
030634 

W" 

030 



m 

010600 
104017 

mm 

00 4066 
000120 

milt 

005737 
001753 



0377 

mi 



mi 



10$: 
12$: 



59$: 

ENDSUB 
L10037: 

T115S: 
BGNSOB 



19$: 



loooos: 

m 

ENDSUB 
L10040: 

20$: 

FNDTST 

L10036: 



MOV 

BIT 

BNE 

BIC 

MOV 

BIS 

MOV 

MOV 

WAITMS 

MOV 

EMT 

BR 



EMT 
JSR 
JSP 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

EMT 

A cEH 

GMANIL 

EMT 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

TST 
BEQ 



#HDSELIMBSETC,L. 

ttWLSTAT/T.MP 

12$ 

#HDSEL,L.DA 

RLDRV,L.CS 

#SEEK,L.CS 

L.DA,RLDA(R2) 

L.CS,RLCSR<R2J 

530. ,R0 

CSWTM 

3$ 



2> 



DASLOAD FOR HEAD 1 

;CHECK IF WRITE LOCK SET 

?YES-SKIP 

;ELSE CLEAR TO HEAD 

;LOAD IN DRIVE NUMBER 

>SET FOR SEEK 

JLOAD & EXECUTE SEEK 

;WAIT FOP INTERRUPT 
>LOOP 






CSBSUB 

PC/TSTINT 

PC,GSTATR 

#WLSTAT/T.MP 

#FMT9,#OPR12 

CSPNTF 

*6,SP 

ORUFF »i 

OPR002/OBUFF,1 / NO 

CSGMAN 

hW 

TSCODE 
OPR002 



Til. 2: 



JINITIALI7E TEST 
?CLEAR DRIVE 

;CHECK WRITE LOCK RESET 

JYES-SKIP 

JREQUEST WRITE LOCK RESET 



CLEAR FOR RESPONSE 

;GET RESPONSE 



OBUFF 
18$ 



CSESUB 
CSETST 



?WAS ANSWER YES 
;NO-REPEAT REQUEST 



ASSEMBLY ROUTI 
CZRLCB.PU 



NES 
23-OCT-78 



MACY11 
14:39 



30A<1052) 22-NOV-78 16:20 PAGE 2-25 

*TEST 11 HEAD ALIGNMENT SUPPORT 



H* 



II 



3:, 




03Q7 i _ 

"ffi 
lm.. 

030736 
030740 

mm 

030744 
030746 



Mil 

013222 




.SBTTL 
BGNTST 



um 



000001 002466 



51404 
012700 



002466 



7S: 



000001 



MOV 
MOV 
CLR 

m 

CLR 
MOV 



EMT 
JSR 

60$ 

MOV 
JSR 

BEO 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 
JSR 

*°S 

MOV 

CMP 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

MOV 

BIT 

BNE 

DEC 

BEQ 

WAITUS 

MOV 



2 HEAD S 
;TEST 

#T12ERR,ERHEAD 

#NEWCYL,R1 

CR1 % " 

\H 

(R15 

n,l 



Rl) + 

Hi* 

Rl) + 



WITCHING 
12 

?SET ERROR HEADER Tl2: *' 
?GET POINTER TO DESIRED LOCATION 
?CLEAR NEW CYLINDER 



CSBSUB 

pc/tstint 
pc'gstatr 

pc,simsek 

»MDRDY,R3 
#CDRDY.R4 
PC,GSTAT 

|DRDYMSK,T.CS 

lloi.,,ERR4 
TSERCODE 

ERP4 
SUB 

PC/GSTAT 

#5,R3 
R3, T.STAT 

l202.,,ERR7 
TSERCODE 

lis? 

SUB 

EIHH-. 



JCLEAR CURRENT CYL. 
?CLEAR DIFFERENC" 



;CLEAR SIGN 
JSET FOR HEAD 



JINITIALIZE TES 
JGET STATUS WITH RESET 



?SET NAME MESSAGE PTR 
?SET CONDITION POINTER 
;GET STATUS 

;CHECK IF READY 

JNO-SKIP 

JREPORT READY ERROR 



;EXIT 



?SET WAIT COUNT 
?GET STATUS 

;SET EXPECTED STATE VALUE 
?CHECfC IF STATE IS 5 

;yes-skip 

;report state error 



R3_ ;SET NAME MESSAGE PTR 
K,T.CS SCHECK DRIVE READY 
JYES-SKIP 
;DEC WAIT COUNT 
?SKIP IP 



1,R0 



ASSEMBLY ROUTINES 
CZRLCB.PU 23-OCT-78 




30A(1052) 22-NOV-78 
*TEST 12 



16:20 PAGE 2-26 
HEAD SWITCHING 



iffilt 



12$: 



15$: 



ERRHRD 

TRAP 

• WORD 

.WORD 

EXIT 

EMT 

.WORD 

TST 

BPL 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

3g£ 

CMP 

m 

BEQ 

ERRHRD 

TRAP 

.WORD 

.WORD 

EV 

.WORD 

ERRHRD 

TRAP 

.WORD 

.WORD 



104001 



25$: 

tm\h 



1st 

BEQ 

SfeP 



CSWTU 

1203. ftft ERR5 

TSERCODE 

1203 

ERR5 

SUB 

mm-. 
W 

12C4.,,ERR6 
TSERCODE 

lltH 

SUB 

PC/POSHSB 
DESHD,R5 

DESHD 

* 7 $ 

1205.,,ERR3 

TSERCODE 

ERR3 

SUB 

CSEXIT 

L10042-. 

1206.,,ERR2 

rigg c65E 

ERR2 



am 
mi 



;REPORT READY ERROR 
;EXIT 



IXBSIwIF » 

JREPORT AL 



NY ERROR 



ALL ERRORS 



;SET NAME MESSAGE PTR 
^POSITION HEAD SELECT BIT 
;YES C SKIP C0RRECT HEAD SELECTED 

K&SEfP ° SELECTED 

;REPORT HEAD SB 1 



?EXIT 

JELSE REPORT HEAD S3 



JCHECK- IF HD WAS DONE 
JYES-SKIP 

£!*§£ SJT TO HEAD 



& flIr T 



ASSEMBLY ROUTINES MACVll 30A(1052) 22-NOV-78 16:20 PAGE 2-27 
CZRLCB.PU 23-OCT-78 14:39 *TEST 12 HEAD SWITCHING 



012737 006437 
01570} 002524 
0050 

50 




3233 
3234 



000001 
002474 

100177 
100177 
002540 



002534 
002540 

002540 
002474 
002474 



.SBTTL 
BGNTST 



T134S: 
BGNSUB 



10$: 



17$: 



Ml; 



READ HEADER (PART 1) 
JTEST 13 



MOV 
MOV 
CLR 
CLP 
CLR 
CLR 
CLR 



EMT 
JSR 
JSR 

SM 

60$ 
MOV 

m 
ill 

JSR 
CMP 

ERRHRD 

TRAP 

.WORD 

.WORD 

EXIT 

EMT 

.WORD 

ERRHRD 

TRAP 

.WORD 

.WORD 



um, 



EMT 

TST 

BNE 

MOV 

MOV 

BR 

BIC 

BIC 

CMP 



#T13ERR,ERHEAD 
iNEWCYL/Rl 



C$BSUR 

PC/TSTINT 

PC,GSTATR 

PC/SIMSEK 

fBl.^Rl 
PC,RDYWAIT 

PC,XRDHDC 

#MHSTA,R3 
PC,P0SHW1 
R5,DESHD 

I301.,,ERR3 

TSERCDDE 

13*1 

ERR$ 

SUB 

CSEXIT 

L10Q44-. 

1302. tJ fF,RR2 

TSERCODE 

1302 

ERR2 



T13: 



JSET ERROR HEADER 

;GET ADDRESS OF DESIRED LOCATIONS 

JCLEAR NEW CYL 

;CLEAR CURRENT CYL 

JCLEAR DIFF 

;CLEAR SIGN 

?CLEAP HEAD 



) 



Tl3.lt 



^INITIALIZE TEST 
?GET STATUS W/RESET 



;SET WAIT COUNT 
;WAIT FOR READY 



JOO READ HEADER 

;SET NAME MESSAGE PTR 
^POSITION HS BIT IN HD 
;CHECK IF HEAD CORRECT 
;YES-SKIP 
;REPORT SB 1 



;REPORT SB 



CSESUB 

DfeSHD 

20$ 

#1,DESHD 

HDWRD1/TEMP0 

PcHDCYL/TEMPO ;CLEAlT ALCbUT CYLINDER IN 1ST HEADER 
#-CHDCYL,HDWRDl ;CLEAR ALL BY CYL IN 2ND HEADER 
TFMP0,HDWRD1 ;COMPARE IF EQUAL 



JTEST IF HEAD 1 DONE 

JYES-SKIP 

?ELSE SET TO HEAD 1 

JSTORE HDR WORD 1 

•SP.TSST^GAJN 



) 



ASSEMBLY 
CZRLCB.P1 



3237 



(5 

323 
3" 



81 



ROUTI 
1 

illli 

3136" 



NES 
23-OCT-78 

mm 



MACYll 30A(1052) 22-NOV-78 
14:39 *TEST 13 



007503 



m mi 



nil im 

1366 013041 



40 
104001 



lllk: 



:20 PAGE 2-28 
READ HEADER (PART 1) 



BEQ 

MOV 

FRPHPD 

TRAP 

.WORD 

.WORD 



#CYLPER,R3 
1306.,,ERR1 



t1epc66e 

1306 

ERR1 



JYES-SKIP 

;SET NAME MESSAGE PTR 

JREPORT HEAD ALIGNMENT PROBLEM 



) 



ASSEMBLY RQUTI 
CZRLCB.PH 




301(1052) 22-NOV-78 
*TEST 14 



16:20 PAGE 2-29 

PEAD HEADER (PART 2) 



am 



T153S: 
BGNSUB 



002426 



10$! 



13$: 



CLR 



EMT 
JSR 
JSR 

68* 

60S 
JSR 



li 

MDV 

MOV 
MOV 
MOV 
RIC 
TST 
BEQ 
BIS 

ftp 
H! 

• WORD 

*S8 RD 

TST 

INC 

TST 

BEQ 

CMP 

ERRHRD 

TRAP 

.WORD 

.WORD 

CMP 

TST 

INC 

INC 

MOV 



;test 14 



READ HEADER (PART 2) 




ffl 



AR 
__AR 
EAR 



SIRED DIFF 



IRED HEAD 



T14j: 

SIRED VALUE 



m* 



CSBSUB 

PC,TSTINT 

PC,GSTATR 

PC/SIMSEK 

PC,RDYWAIT 
PC,RDALHD 

#HbRCMP # OPFLAG 
ftIBUFF,R4 

fal R5 

(R4), (R5) 

#BIT15!HDHSEL, 

ftr 

#HDHSEL,(R5) 
CpP#(R4)^ 



UNITIALIZE TEST 
;CLEAR DRIVE 

;DO SEEff 

1SET WAIT COUNT FOR 20 MS 
JWAIT FOR READY 

?DO READ HEADER ALL HEADERS 

fSfe? A SD^°?§Mg?gg A ^ A g RRQRS F0R REP0RT 
;CLEAR FOR HDR COUNT 

?S£I SSIJiliS E2 R .S8 R T0 BE CHECKED 
mi RglNJER^TO TEST AREA 



?SET 



COUNT 



;GET FIRST HEADER WORD 
R5) '- 



(R5)JCLEAR BIT 15 AND HEAD SEL BIT 
*tH*AZ HD ° DESIRED 
;YES-SKIP 

;ELSF SET HEAD BIT 
KLEAR 2ND WORD OF TEST AREA 
COMPARE HEADER WORD 



V 



\m\ 



:rrio 



A 

: :r4)+ 

r|)* / -(R4) 

i ||c66l RRl ° 

(R5^(R4) + 



;SKIP IF OK 
;else POSITION 

;report error 



TO BAD WORD 



11 



4) + 



<R5),R0 



*BUMP R4 TO NEXT WORD 

>BUMP WORD COUNT 

;TEST 2ND WORD IS 

>YES - SKIP 

JPOSITION PTRS FOR REPORT 

;REPORT ERROR 



PREPOSITION POINTER 

^P.. S J T . I .9N R4 PAST ECC WORD 

>BUMP WORD COUNT 

;BUMP SECTOR COUNT 

;CHECK IF SECTOR IS PAST LAST SECTOR 



&iiK Y Pi5 OUT1 ^ OCT . 78 mi 1 30 »< l0 ">..2!:»9!-™ ««2S..PiS?.3=3o 



W IM Uffl «WJ88 

3290 031610 001002 

942715 000077 




-I IP 



002534 

mill gOOOOl 002534 
000137 031414 



104001 



*TEST 14 
17$s 

itflsT 

L10045: 



CMP 

BNE 
BIC 
DEC 

BNE 



ENDMOD 



EMT 
TST 

m 

JMP 

EMT 



READ HEADER (PART 2) 
RO 



«HSSEC,(R5) 

fis 

CSESUB 

gr|HD 

#I,DESHD 
T153S 

CSETST 



;no-skip 

JELSE^CLEAR SECTOR TO 

!5IS-??i r p C0UNT 



;yeI-sk?p hd l TESTED 
{else set to head 1 
;redo test 



IIP 



ASSEMBLY 
CZRLCR.PT 

3306 

M 

<4) 
<4) 

3310 
(4) 



wacyii 
16:19 



646 

iti 

650 

*||8 
.111 

.666 
-.1666 

a "1674 



8 IBSi 



<4) 
<4) 

1 

ml 

3317 

3318 

3319 
3320 

m\ 

mi 

M 
M 



0000 25 
00 41 



1! 



88M31 

001031 

8sa« 

0Q034C 

888889 



31710 0033: 

111 i 



720 
31722 
31722 



000007 



_.I71. 

S 31744 
3K83 
Mi! 

31771 



12181 

mii 

031772 



M2! i8 



PI 

320O0 

1SH 



000004 



30» (1 052). T 2|-N ? » 

BGNMOD 
BGNHRD 



READ HEATER (PART 2) 



mm 

052103 

m\n 

030461 



mm 

051117 



HRDPPM 

.WORD L10047-L$HARD/2 
CNTYPE,CNT,1 £ YES 
.WORD TSCODE 
.WORD CNTYPE 

CSpRsG,CSR, 0,160000, 177776, YES 
.WORD T^ A " ft " 
.WORD Ci 
.WORD T! 
WORD T 1 
VECMSG,VE£t;5;Q,776,YES 
.WORD t*"*-*' 

.WORD TSHILIM 
BRMSG,PRI6r«Oj.340/0,7,YES 

:S88B ivM 

.WORD 340 

.word tslolim 

drmsg^drsO, 3^00,0,7, yes 
•word tscode 

.WORD 

.WORD 
.WORD 
.WORD 



ENDHRD 
L10047: 

csrmsg: 
vecmsg: 

042514 BRMSG: 



drmsg: 

CNTYPE: 
ENDMOD 



BGNMOD 
BGNSFT 



?CODE 
'.RMSG 

mi 

■thy- 

!£B» S -- 



DRMSG 
TSLOLIM 



.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

•ASCIZ 
.ASCIZ 



/BUS ADDRESS/ 

/VECTOR/ 

/BR LEVEL/ 

/DRIVE/ 
/RL11/ 



.EVEN 

SFTPRM 

.WORD L10050-LSSOFT/2 

SELQ#MlsWI/4 t VES 
.WORD TSCODE 
.WORD SELO 
.WORD 4 

ALGNQ,MISWI/10,YES 
.WORD TSCODE 
.WORD ALGNQ 



ASSEMBLY ROUTINES 
CZRLCB.PT2 22-NOV-78 

m umi O000l ° 
\] mm mm 

32014 100000 

*\ ollSil mil 

4) 032022 QQ0377 

11 mil 888SW 

32030 



i4 t 
3336 
3348 

(4' 



335L 

(4) 032031 



|« siaii mm 

353 032036 
032036 

032036 054 

N M 

032060 052 



03! 
3361 03 



3363 



3371 



3378 



383 
384 
385 
386 



032071 an m 

nih mm 

mii& j||gu 

...J8 P A . 

032136 020105 

32144 046101 

Mil mm 

032166 05212' 

hm mai 

mm mil 

032240 051505 

032246 0001C5 



MACY11 
16:19 



30AU052) 22-NOV-78 
*TEST 14 



16:20 PAGE 3-1 

READ HEADER (PART 2) 




MANQ,MISWI, 100000, YES 
.WORD TSCODE 
.WORD MANQ 



3$: 



.WORD 100000 

?VORD ERLIMO,ERLIM / D,377,0,377 / YES 

IWORD ERLIMO 

.WORD 377 

.WORD TSLOLIM 

.WORD TSHILIM 

AUTOQ,MISWI,20,YES 

.WORD TSCODE 



ENDSFT 

L 100 50: 
selq: 



.EVEN 
.ASCIZ 



/EXECUTE DRIVE SELECT TESTS/ 



052503 ALGNQ: 

818311 



.ASCIZ /EXECUTE HEAD ALIGNMENT SUPPORT/ 



052125 MANO: 
"52516 



.ASCIZ /EXECUTE MANUAL INTERVENTION TESTS/ 

ERLIMQ: .ASCIZ /SPECIFY ERROR LIMIT/ 
AUTOQ: .ASCIZ /DROP DRIVE IF NO RESPONSE/ 

.EVEN 
ENDMOD 

.=32514 

;AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS. 



) 



ASSEMBLY ROUTINES „ n MACYll 3OAU052) 22-NOV-78 16:20 PAGE 3-2 
CZRLCB.PT2 22-MOV-7R 16tl9 *TEST 14 READ HEADER 



READ HEADER (PART 2) 



3387 
3389 

3400 032514 LASTAD 

(3) 032514 LSLAST: 



ASSEMBLY ROUTINES MACY11 30A(1052) 22-NOV-78 16:20 PAGE 4 

CZRLCB.SUP 23-OCT-78 09:52 DIAGNOSTIC SUPERVISOR — LOW COPE SET UP 



.SBTTL DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 

.WORD ;SPICE 

.WORD ;SIZE 

WORD ;CHECKSUM (NOT CURRENTLY USED) 

,Jon " r JSIZE OF H.rf. PTAB. ALLOCATION 



X4273 053310 000OC0 .WORD ?SPACE FOR USER POOL POINTER 

mn mm mm -.m 8 

14276 063316 Q0QQOO .WORD 

14277 063322 END.SUPV=.+2 

14278 00*200 .END 200 



I 



ASSEMBLY ROUTINES 
CZRLCB.SUP 



23-OCT-78 CQ;52 



83^8 



22-NOV-78 16:20 
SYMBOL TABLE 



37344 

■mi 

37376 



ALLSEC= 000002 

ANVERR= 100000 

APT.ER 034455 

ARMID 002636 

ARMIDU 002640 

ASSEMB= n QQQ10 

AUTOQ OWtfi 

AUTQSZ= 

ASAAV 

A$AAW 

ASAAX 

ASAAY 

ASAAZ 

ASABA 

BADADD= 

SAMSK = 
ANAM 
BASADO 
BELL 
BGN.SU= 
BHSTAT= 
BINMSG 

BITQO = 

stm : 



00040 
00100 



0Q2 



CALLPS= 

CALLSP= 

CALLTC= 

CAL.CC 

CAL.TI 






nm 

34150 
53342 

im 



CLKRES 

CLKSER 

CLKSON 

CLK.SE 

CLNCOD 

CLRPAR 

CLR.MA 

CMT = 

CNTYPE 

CNVT 

COMMAN 

COMMTA 

COMPOP= 

CONHNG- 



061672 

mm 

002656 



007503 

888333 

010506 
045062 

8318?! 

Q46236 



CSDCLN= 



000005 

mm 

000032 

WW 

000040 



im 

,0023 
60014 

"8811 



C§RPT = 
C$SEFG= 



002530 
002536 



DONE 

DPDVD 

DPMUL 

mw 

DRSB = 
DRSELT= 
DRSET = 
DRVCNT 
DPVERP= 



006001 



DRVNAM 
DEYNAV 



EF14 
EF15 



005633 

005640 
000400 

nm 

032762 

ma 

046764 

mm 



m : 

F03 = 



) 



* 



ASSEMBLY ROUTINES 
CZRLCB.SUP 23-OCT-78 



VACY11 30A(1052) 22-NOV-78 16:20 
09:52 SYMBOL TABLE 



HBl.i 

FMT11 

fmt:~ 

FMT 

FMT. 
FMT 
FMTl 
FHT 



Mil 

FMT26 
FMT27 
FMT2B 




014270 

mui 

032520 
002646 
002644 
002642 
002650 

mm 
fflm 

032562 



12334 
*~ s t42 
__J50 
12414 

mm 

012513 
012535 
$12567 



m 




fSRV = 
§SUB = 
$S« = 
$TEST= 
vARBAG 
GETCHR 
GETCMN 
GSTPAR 
GETPOS 
GETSTA= 
GETSWI 
GET.TW 
GLBDAT 
GLBEQA 
GLBERR 
GLBSUB 
GLBTXT 
GSTAT 
GSTATC 
GSTATG 
GSTATR 
GSTER1 
GTSTAT 



G§EXCP= 
HILIs 



mm 

002122 G 

?p i 

016056 G 
004744 G 

81S3M 

016524 
016464 
$06316 

003104 



G*HI 




HCOREP 
HCOPFQ 



0004 

'Ml 

037567 
007652 

mm 

37166 

ma 

52 




HOLDSP 
HOSTAT 



nm 

NITIA 

NITST 

NIT.M 

NIT.R 

NOUTS= 

NPUTA 

NTEBL= 

NTFOR 



QS100 



006347 
040104 
032606 

mm 

000100 



I$SEG 

I$SFT 
I*SRV 
iSSUB 



-ABACR 

.ABEXP 

.ABHCP 

.ABHCR 

.ABIN 

,ABMID 

,AB0CF 

LABOCR 



00041 
0004 
0004: 
$004'. 
004* 
004 



mm 



PT.AD 
PT.RE 
LPT05 
r SI.RE 



LSLAST 
LSMREV 
LSNAME 
LSREPP 
LSREV 



002104 
014730 

002050 
002000 



SEQ 0116 



I 



V 






ASSEMBLY ROUTINES MACYll 304(1052) 22-N0V-7B 16:20 

CZRLCB.SUP 23-QCT-78 *9:52 SYMBOL TABLE 

LSSOFT 
LSSPC 
LSSPCP 
L$SPTP 



mm 

002456 
002462 

mm 



014654 

mm 

016050 
016054 

mm 
mm 

025406 

mil 

2£§m 

8392M 

027364 

nim 

030166 
030640 

818S1S 

031156 

sip 

031304 



L10045 
L10046 



Mig KB 

MRADAD 

MBADSF 

MRHSTA 

MBSETOs 

MCERR 

9&8SVS 



MRStt 

MSEEK 

MSG.An 

MSG.TY 

HSPERP 



»i= 



32 « „ 



NUMHIN 

NUM. LA 

NUM. NO 

NUM. UN 

NUNITS 

NXMERR= 

NXTFOR 

NXTPAS 

QBUFF 

OCTMSG 

GFIN 

OFINU 

QFMTD 

OFMIDU 

OFOUTU 
0LDCYL 



046434 
046602 
032556 
033164 

mm 

056252 
015142 



u 

WW 

m 

0300 
,0346 
.0377 



■8313 

0263 

mi 

2602 
2604 

38S8 

0040 



000001 

mm 

000000 
051474 




««« 




ASSEMBL^ ... 
CZRLCB.SUP 



"1 



mm 

006771 

8878U 

007067 
007127 



RDDATA= 
RDHEAD= 
RDNOHRs 
RDYCHK 

READRL 
READ.P 
REGBAC 



SAVEDO 



B ° 0,, !§5 CT-7e WW 30,(l052) SV^rT';?L 8 E " !2 ° 

"EMP8 

-IISli 

"ERMTA 
EST.M 

IBM 

IM.OP 
TOO. MA 
"OSLOWr 
'RPFLG 
'RPHAN 
'STINT 
STLAP 

«:*8 

YPEC 

Wit 

YPLIN 
YPNUW 
YPSTP. 
YP.ER 
Y.UNI 
SARGC= 
SCODE= 
SERCO= 
SERRN= 
5EXCP= 
FLAG 

LOLI 
LSYV 

mi 

NSKl 
NSK2 

m 

SUBN 
TAGL= 
TAGN 
TEMP' 
TEST; 

TSTM; 

TSTS: 
SCLE 
SDU ; 

$HAP: 

§HW 
SINI: 



km 
mm 



8OT« r, 

063320 



STRCHR 
STRT.T 
ST. SET 
SUBST* 
SUNIT. 
SUPERV 
SUPFLA 
SUPY.T 
SUP. PR 

mm: 



f s 



m 

mm o 



TEMP4 
TEMP 6 



000001 
003070 



m 



SSMSG= 
SSSOF= 
§§SRV= 
ISSURs 
SSSW = 
SSTES= 

>.?§ 

.DA 
.MO 

'Ml 

09ERR 



4ERR 

is! 

6ERR 



UNDTST* 



toft 



024704 G 

mat 

025512 G 
026004 

0261?6 G 



UNIT. 

UNI.M.. 

UNXERR 

USER.P 

USER.T 

VALDES 




000 



ASSEMBLY ROUTINES MACVll 30A(1052) 22»-NQW-7B 16:20 
CZRLCB.SWP 23-OCT-78 9-9 S52 SYMBOL TABLE 



ERRORS DETECTED: 



DSKZ:CZRLCB.DSKZ:CZRLCB/EQ:P*RT1=CZRLCB/ML,CZPLCR.PT1 / CZRLCB.P11 / CZPLCB.PT2,CZRLCB.SUP 
RUN-TIME: 50 49 1 5FCQNDS 

RUN-TIME "" "' 

CORE USE 



4E: 50 49 1 SECONDS 
<E RATIO,: "177/101 = 1.7 

3ED: 16K (31 PAGES) 



',' ) 



t 
I 



f 
I 



